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GLOSSARY 


cut 

The  string  of  power  measurements  associated  with  a single  antenna  setting  while  the 
radio  star  drifts  though  the  antenna  beam. 

measurement  # 

The  number  indicating  an  individual  cut  in  a run. 

offset 

The  declination  distance  of  a cut  from  the  calculated  center  of  the  antenna  pattern. 

run 

The  data  associated  with  a group  of  data  sets  on  a particular  daily  MEAS  tape. 

set 

The  data  associated  with  6 consecutive  cuts  starting  with  a cold  sky  cut,  and  followed 
by  5 equally  spaced  cuts  through  the  antenna  pattern. 

sky  profile 

The  dependence  of  the  sky  background  temperature  on  elevation. 

TRAP 

"The  Restart  Alternatives  Position".  The  point  in  each  computer  program  accessable 
using  the  special  function  key  0 which  provides  for  the  program  master  RESET, 
measurement  restart,  or  selected  option  functions. 
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Electromagnetic  Fields  Division 
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Boulder,  Colorado  80303 

The  Earth  Terminal  Measurement  System  (ETMS)  was  developed  by  the  National  Bureau  of 
Standards  to  make  accurate  measurements  of  earth  terminal  parameters  such  as  the  figure  of 
merit  (G/T),  antenna  gain  relative  to  a reproducible  reference  level,  the  noise  equivalent 
flux  (NEF),  and  noise  ulterior  flux  (NUF).  This  manual  includes  the  theory  of  the  measure- 
ments, measurement  procedures,  measurement  troubleshooting,  interpretation  of  the  results, 
and  a discussion  of  the  ETMS  software. 

Key  words:  antenna  gain;  antenna  half-power  beamwidth;  atmospheric  loss;  Cassiopeia  A; 

earth  terminal  measurement  system;  figure  of  merit;  moon;  noise  equivalent  flux;  noise 
measurement;  noise  ulterior  flux;  radio  stars;  satellite  communication. 

1.  INTRODUCTION 


This  manual  describes  the  operation  of  the  earth  terminal  measurement  system  (ETMS)  shown  in 
figures  1 and  2.  It  includes  the  theory  of  the  measurement  procedures,  the  measurement  trouble 
shooting,  the  interpretation  of  the  results,  and  a discussion  of  the  ETMS  software.  This  manual  does 
not  include  details  on  connection  of  the  hardware,  on  hardware  maintenance,  or  on  hardware  trouble 
shooting.  These  topics  are  discussed  in  the  companion  ETMS  maintenance  manual  [7]. 

For  someone  unfamiliar  with  the  ETMS  who  intends  to  operate  it  using  primarily  this  instruction 
manual,  the  following  suggestions  are  offered.  First,  one  should  realize  that  the  concepts  behind  the 
measurement  are  simple.  The  ETMS  basically  measures  the  sensitivity  of  the  earth  terminal.  This  is 
done  by  pointing  the  earth  terminal  antenna  at  a known,  weak  source  (Cassiopeia  A,  or  the  moon),  and 
accurately  measuring  the  resulting  signal -to-noise  ratio.  Second,  we  recommend  scanning  through  this 
manual  and  the  companion  maintenance  manual  in  order  to  get  a feel  for  what  material  is  available,  and 
where  it  is  located.  It  is  easy  to  lose  sight  of  the  basic  simplicity  of  the  measurement  if  one  wades 
through  too  much  fine  detail  at  first.  The  mechanics  of  measurement  can  best  be  understood  by  becom- 
ing familiar  with  the  nine  steps  in  the  measurement  as  listed  in  Table  1. 


Third,  one  should  get  familiar  with  the  ETMS  in  a nonstressful  environment.  The  nature  of  com- 
puter-assisted measurements  is  such  that,  at  the  beginning,  problems  occur  because  of  sequences  of 

inappropriate  entries.  The  normal  recovery  mode  is  to  rewind  the  program  tape  (to  protect  it  from 

turn  off  transients)  and  then  to  turn  off  the  computer  and  start  over.  Soon  the  computer  will  have 
the  operator  trained  to  what  it  expects.  The  ETMS  control  unit  contains  a simulated  star  noise 
source,  so  one  can  become  familiar  with  many  of  the  situations  that  can  occur  during  a measurement. 
What  cannot  be  simulated  is  the  excitement  of  finding  the  real  radio  star  which,  normally,  is  not 
difficult  to  locate.  If  the  earth  terminal  and  ETMS  are  functioning  properly,  and  if  the  earth 
terminal  location  and  the  time  are  accurately  known,  the  star  MUST  be  there  (within  the  antenna  bore- 
sight  error).  To  keep  this  naturally  exciting  time  in  bounds,  it  is  highly  recommended  that  every- 
thing possible  be  done  ahead  of  time  to  assure  that  the  equipment  and  software  are  working  properly. 
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Figure  1.  Earth  Terminal  Measuring  System 
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Figure  2.  Coaxial  switch  for  the  ETMS 
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Fourth,  one  should  be  mentally  prepared  to  "lose"  the  first  day  at  the  measurement  site.  This 


will  happen  more  often  than  one  would  like  due  to  unforeseen  di fficul ties.  Examples  of  problems  which 
have  occurred  include  the  inability  to  find  a cable  to  go  to  the  ETMS  from  the  noise  add  source  in  the 
antenna  room,  an  unexpected  limitation  in  pointing  the  antenna,  an  intermittent  cable,  and  the  wrong 


site  coordinates. 


4 


2.  BACKGROUND 


The  radio  star  Cassiopeia  A (Cas  A)  and  the  moon  are  used  as  calibration  sources  [1],  [9]  for  the 
measurements  described  in  this  report.  For  X-band  antenna  systems,  Cas  A is  the  source  of  choice  for 
large,  low  noise  antenna  systems  (11-  to  28-meter  diameter  antennas).  The  moon  is  the  best  source  for 
medium-sized  antenna  systems  (4-  to  5.5-meter  diameter  antennas). 

2.1  G/T  and  G/Ta 

To  determine  G/T,  the  ratio  (Y)  of  the  output  noise  power  when  the  earth  terminal  antenna  is 
pointed  to  Cas  A (or  the  moon)  to  the  output  noise  power  when  the  antenna  is  pointed  to  the  nearby 
cold  sky  is  measured.  The  measurable  noise  power  when  the  antenna  is  pointed  to  Cas  A (or  the  moon) 
is  the  power  at  the  output  of  the  antenna  times  the  electronic  gain  (g)  from  the  antenna  output  to  the 
input  to  the  ETMS.  Thus 

Power  to  ETMS  (on  source)  = g k (aT  + T)  B , 
and 


Power  to  ETMS  (on  sky)  = g k T B , 


so  the  ratio  of  these  two  measurable  powers  is. 


Y = (AT  + T)/T  (1) 

where  AT  is  the  temperature  rise  due  to  the  radio  source  at  the  antenna  output  port,  and  T is  the 
system  temperature  expressed  relative  to  the  antenna  output  port.  The  temperature  of  the  cold  sky  is 
included  in  T.  The  temperature  rise  caused  by  the  star  depends  on  its  flux  density,  S(W/m2/Hz)  [2], 
[9],  and  on  the  effective  area  of  the  antenna  Ae  (m2), 

AT  = (l/2)k1k2k3k4k5k6k7  SAe/k  , (2) 

where  for  Cas  A,  S = (3154)  e_0*0097a  (f/1000)a  10-26,  a = -0.792  + 0.0012  x,  x = the  number  of  years 
since  1965.0,  f is  the  frequency  (Hz),  k is  Boltzmann's  constant,  (k  = 1.38045  x 10^-"23^J/K) . For  the 
moon,  S = 7.252  F2  Tb  dm2,  where  F is  the  frequency  (GHz),  Tb  is  the  brightness  temperature,  dm  is  the 
apparent  diameter,  and  the  following  definitions  hold. 

Tb  = Tbo  1_(Tbl  /Tbo^  cos(wt  " t)  , 


where 


Tbo  = (207.7  + 24.43/F)  + 11.4%  = mean  brightness  temperature, 

Tbi/Tb0  = 0.004212  ± 6.6%,  c = 12.19  (deg/day)  ± 0.9%,  t = lunar  age  (days),  lunar  phase  lag  <;  = 43.83 
deg/ ( 1 + 0.0109  f)  + 28%, 


5 


dm  = 31.090/(ro/a)/60.268  - 0.0166  sin  L ± 0.12%, 

rQ/a  = aQ  + (a^SOO.OOOMp  - 0.5)  + ( a2/500 ,000) ( p - 0.5)2, 

where  aQ,  a^,  a2  are  coefficients  given  in  the  "American  Ephemeris  and  Nautical  Almanac",  p is  the 

fractional  number  of  hours  from  0 hours  U.T.  to  24  hours  U.T.  on  the  same  day.  The  various  k^'s  are 

defined  by  Daywitt  [3];  k-^  is  the  atmospheric  transmission  correction  factor,  k2  is  the  star  shape 
correction  factor,  k3  is  the  bandwidth  correction  factor,  k^  is  the  differential  system  temperature 

factor,  kg  is  the  antenna  pointing  correction  factor,  kg  is  the  polarization  factor,  and  k -j  is  the 

system  response  correction  factor.  The  factor  1/2  in  eq  (2)  accounts  for  the  fact  that  only  one 
polarization  of  radiation  can  be  received  from  a star  at  any  one  time.  If  the  antenna  is  reciprocal, 
then 

Ag  = c2  G/(4  it  f2)  (3) 

where  G is  the  antenna  gain,  c is  the  velocity  of  light  (2.99793  xlO®  m/s),  f is  the  frequency;  (Hz), 
so 


A T = ; G 


(4) 


where 


C = kx  k2  ...  k7  c2  S/(8  u k f2)  (5) 

For  the  measurements  included  in  this  report,  power  is  measured  relative  to  a stable  and  reproducible 
noise  add  reference  signal,  Ta,  to  reduce  the  effects  of  electronic  gain  changes  in  the  system,  so 

G/Ta  = (A  T/Ta)/c  (6) 

Combining  eqs  (1)  and  (4) 


G/T  = (Y-D/c 

or  expressed  in  decibels  above  one  inverse  degree  kelvin, 

G/T  (dB/K)  = 10  log  G/T. 


(7) 


(8) 


2.2  Noise  Equivalent  Flux  and  Noise  Ulterior  Flux 

The  figure  of  merit  (G/t)  for  an  earth  terminal  has  several  shortcomings  for  the  precise 
characterization  of  an  earth  terminal.  First,  it  neither  characterizes  the  hardware  nor  the  hardware 
plus  atmosphere,  because  the  atmospheric  effects  are  excluded  from  the  antenna  gain  (G)  part  of  G/T, 
but  are  included  in  the  system  temperature  part.  Second,  earth  terminal  noise  characteristics  and 
efficiency  are  largely  independent  of  frequency  while  G/T  is  a function  of  frequency  squared.  Thus, 
if  an  earth  terminal  is  being  characterized  at  several  different  frequencies,  it  becomes  somewhat  more 
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difficult  to  identify  an  abnormal  measurement  when  using  G/T  as  opposed  to  the  use  of  a parameter  that 
is  not  frequency  dependent.  Last,  inclusion  of  the  atmospheric  component  in  G/T  makes  it  difficult  to 
determine  the  "reasonableness"  of  a set  of  results.  That  is,  with  small  sets  of  data  it  is  important 
to  be  able  to  judge  whether  the  end  points  are  valid.  A reasonable  change  in  hardware  characteristics 
is  much  easier  to  estimate  than  changes  in  hardware  plus  atmospheric  effects.  To  avoid  the  above 

problems,  the  parameters  Noise  Equivalent  Flux  (NEF)  and  Noise  Ulterior  Flux  (NUF)  are  introduced. 

The  Noise  Equivalent  Flux  (NEF)  density  is  a measure  of  the  noise  performance  of  the  earth  ter- 
minal analogous  to  effective  input  noise  temperature  for  an  amplifier.  NEF  is  the  ideal,  white, 

random  noise  flux  density  [w/(m2  Hz)]  incident  normal  to  the  aperture  of  a noiseless  equivalent  earth 
terminal  such  that  the  output  noise  power  equals  the  output  noise  power  of  the  actual  earth 

terminal.  By  replacing  T by  (NEF  Aeo)/(2k)  + Tsky,  the  Y-f actor  (eq  1)  becomes 

Y = (kj  ...  k7  S + 2 k T$ky/Aeo  + NEF)/(2  k Tsky/Aeo  + NEF)  (9) 

where  k^  ...  k7,  S,  and  k are  defined  as  in  eq  (2),  Tsky  is  the  noise  power  originating  from  the 

atmospheric  losses  along  the  antenna  boresight  plus  the  three-degree  kelvin  cosmic  background 
temperature,  and  Aeo  is  the  antenna  effective  area  at  the  antenna  aperture  (i.e.,  no  resistive  antenna 
losses  included).  Boltzmann's  constant,  k,  and  the  antenna  effective  area,  Aeo,  are  used  to  convert 
Tsky  to  a power  density  expressed  in  watts/meter2.  Rearranging  eq  (9), 

NEF  = kj_  k2  ...  k7  S/( Y-l)  - 2 k T$ky/Aeo.  (10) 

If  the  atmosphere  is  included  as  part  of  the  earth  terminal,  the  corresponding  noise  equivalent  flux 

is  denoted  NUF,  or  the  noise  ulterior  flux  density  to  emphasize  that  the  input  reference  plane  to  the 
earth  terminal  is  beyond  the  upper  atmosphere. 

NUF  = k2  ...  k7  S/( Y-l)  - 2 k Tcosm/Aeo  (11) 

where  Tcosm  is  the  3K  cosmic  background  temperature,  and  no  atmospheric  absorption  factor  k^  occurs. 
2.3  Estimate  of  Antenna  Gain  and  Ta  using  HPBW 

Primarily  Ta  is  intended  as  a stable  reference  signal  to  remove  the  effects  of  electronic  gain 
variations  from  the  measurement  of  NEF  and  of  G/T.  However  it  is  useful  to  estimate  T,  in  order  to 

a 

display  the  variation  of  antenna  gain  implied  in  the  variations  of  the  G/Ta  measurements.  The 
calculation  of  Ta  from  the  antenna  half-power  beamwidth  (HPBW)  in  the  REWORK  PROGRAM  involves  several 
steps.  First,  the  measured  antenna  HPBW  and  G/Ta  are  least  squares  fit  to  a constant  plus  cosecant  of 
the  antenna  elevation  term.  The  fit  values  at  30  degrees  elevation  for  G/Tg  and  HPBW  are  used  for  the 
subsequent  calculations  for  Ta.  Then  the  antenna  gain,  G,  is  calculated  using  the  following  empirical 
equations  relating  aperture  efficiency,  napr,  HPBW(deg),  antenna  diameter  D( ft ) , and  G. 

oapr  = nrad/(HPBW  D F/50.6)2  (12) 

where  nrad  is  the  radiation  efficiency  (assumed  to  be  0.98),  and  F is  the  frequency  in  gigahertz  and 
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G = 10.2  napr  (D  F)2 
so 

G = 26117  nrad/(HPBW)2  (13) 

Using  the  value  for  G/Ta  at  30  degrees  elevation  and  the  empirical  value  for  G,  the  magnitude  of  Ta  is 
calculated. 


8 


3.  MEASUREMENT  INSTRUMENTATION 


The  measurement  of  the  pertinent  power  ratios  is  accomplished  using  the  Earth  Terminal 
Measurement  System  (ETMS).  The  ETMS  is  an  automated  measurement  system  developed  around  the  most 
accurate  power  measurement  bridge  known--the  NBS  type  IV  self-balancing  bridge  [5].  This  bridge,  as 
implemented  in  the  ETMS,  measures  the  ratio  of  stable  noise  powers  to  an  accuracy  of  better  than  + 
0.1%. 

A simplified  block  diagram  of  the  ETMS  is  shown  in  figure  3.  The  ETMS  contains  nine  subsystems: 
(1)  a calculator  which  provides  computation  capability,  a means  of  controlling  each  of  the  remaining 
subsystems  under  automatic  sequence  control,  a means  of  storing  the  measurement  results  on  magnetic 
tape  in  order  to  rework  the  data  at  a later  time,  and  a keyboard  to  control  the  measurement  procedures 
or  to  enter  program  modifications;  (2)  an  external  cassette  which  allows  redundant  recording  of 
measurement  data;  (3)  an  NBS  type  IV  self-balancing  power  bridge  used  to  measure  noise  power;  (4)  a 
programmable  voltmeter  whose  accuracy  is  a major  factor  in  determining  the  accuracy  with  which  the 
noise  power  is  measured;  (5)  a multiplexer  which  connects  the  digital  voltmeter  to  various  measurement 
points  of  interest;  (6)  a digital  clock  needed  to  provide  time  information  required  to  determine 
current  star  coordinates;  (7)  dual  X-band  solid  state  noise  source  to  provide  a stable  reference 
signal  needed  to  eliminate  the  effects  of  gain  fluctuations  in  the  earth  terminal;  (8)  an  rf  control 
unit  which  provided  signal  conditioning,  system  test  signals,  precision  circuits  which  allow  the 
calculator  to  control  the  various  measuring  instruments,  and  (9)  a coaxial  switch  under  computer 
control  which  allows  the  input  of  the  rf  control  unit  to  be  connected  to  any  of  three  down  converters 
of  the  earth  terminal. 
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Figure  3.  Block  Diagram  of  the  ETMS 
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4.  OVERVIEW  OF  MEASUREMENT  PROCEDURE 


The  measurement  procedure  of  the  ETMS  is  designed  to  measure  G/T,  G/Ta,  NEF,  NUF  and  to  estimate 
the  antenna  gain.  TO  OBTAIN  THE  BEST  ACCURACY,  the  ETMS  OPERATOR  MUST  exercise  good  metrology  tech- 
niques and  especially  TAKE  METICULOUS  CARE  IN  POINTING  THE  ANTENNA  by  carefully  approaching  each  azi- 
muth and  elevation  setting  of  the  antenna  from  the  same  direction. 

The  measurement  procedure  contains  nine  steps  as  noted  in  table  1.  First,  prior  to  going  to  the 
measurement  site,  the  daily  MEAS  tapes  and  the  daily  SUMMARY  tapes  (which  will  be  used  during  the 
measurement)  are  prepared.  These  are  prepared  by  duplications  of  the  master  MEAS  tape  and  the  master 
SUMMARY  tape.  Then  the  SITE  PREP  tape  is  used  to  prepare  data  and  to  store  it  on  these  daily  MEAS 
tapes  (e.g.,  the  date  of  the  measurement,  the  earth  terminal's  site  coordinates,  and  the  almanac  data 
on  the  sun  and  the  moon).  The  ETMS  will  print  out  the  expected  measurement  error  and  the  star  posi- 
tions versus  time. 

The  second  measurement  step  is  to  validate  that  the  equipment  is  working  properly  and  that  the 
MEAS  tapes  have  been  correctly  prepared  before  the  equipment  is  shipped.  To  validate  that  the  equip- 
ment is  working  properly,  the  EQUIP  CHECK  tape  routine  is  utilized.  To  validate  that  the  daily  MEAS 
tapes  have  been  correctly  prepared  and  that  the  files  have  been  stored  and  can  be  reloaded  without 
difficulty,  the  MEAS  tapes  to  be  checked  are  inserted  into  the  ETMS  calculator  and  the  beginning  of 
the  measurement  routine  is  simulated  (using  the  "simulated  star  noise"  generator  as  the  "rf  input"  for 
the  ETMS  CONTROL  UNIT).  In  particular,  the  1SKY  option  should  be  simulated.  This  simulation  will 
execute  the  MEAS  CHECK  routine  discussed  in  section  6.4.1  (the  MEAS  CHECK  routine  is  also  executed  by 
the  2G/T  routine,  but  the  2G/T  routine  does  not  function  until  after  the  1SKY  routine  has  been  com- 
pleted). The  MEAS  CHECK  routine  demands  that  four  conditions  be  met  or  the  measurement  process  is 
stopped.  The  ETMS  operator  needs  to  know  instinctively  how  to  correct  any  of  the  four  deficiencies 
(or  an  unnecessary  frustration  will  set  in  at  the  measurement  site  when  there  are  already  many  things 
to  think  about). 

Especially,  it  is  pointless  to  arrive  at  the  measurement  site  with  the  wrong  system  constants 
(data  matrix  N)  stored  on  the  daily  MEAS  tapes.  This  will  cause  the  assumed  magnitude  for  the 
standard  attenuator  (A3)  to  be  incorrect.  If  the  wrong  data  matrix  N was  stored,  then  go  to  a tape 
where  the  correct  N matrix  is  stored  (e.g.,  the  EQUIP  CHECK  tape)  and  load  the  correct  data.  For 
example,  to  load  the  system  S/N  #3  constants  from  the  EQUIP  CHECK  tape,  use  the  keyboard  command  "LOAD 
6,  N (EXECUTE)".  Then  to  store  the  correct  data  onto  the  daily  MEAS  tapes,  use  the  keyboard  command 
"STORE  10,  N (EXECUTE)".  These  corrected  daily  MEAS  tapes  should  be  rechecked  as  described  above  to 
be  sure  that  they  will  reload. 

It  can  happen  that  the  value  of  the  standard  attenuator  is  different  from  the  value  contained  in 
the  systems  constants  matrix  N say,  for  example,  because  a new  standard  attenuator,  or  coaxial  switch 
was  installed,  so  that  the  right  system  constants  were  loaded,  but  the  value  for  A3  is  not  within  ± 
0.05  dB  demanded  in  the  MEAS  CHECK.  In  this  case,  the  ETMS  operator  should  change  the  value  of  A3 
when  the  opportunity  is  presented  during  the  MEAS  CHECK  routine  as  discussed  in  section  6. 4. 1.2  (or 
using  the  Key  2 routine  discussed  in  section  6.4.7).  Once  the  correct  value  for  A3  is  known,  then  the 
MEAS  program  is  stopped  (via  "end"  key  on  the  calculator)  and  the  correct  value  inserted  in  N(l,3). 
For  example,  if  the  correct  value  of  A3  = 3.9502,  then  via  the  keyboard  one  enters  "N(l,3)  = 3.9502 
(EXECUTE)".  To  indicate  that  one  of  the  system  constants  has  been  altered,  the  ETMS  serial 
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number/system  revision  number,  N( 1 , 4 ) should  be  changed.  Thus,  if  system  3 is  being  used,  and  the 
current  N( 1 ,4)  = 3.04,  then  change  it  via  the  keyboard;  " N( 1 ,4)  = 3.05  (EXECUTE)".  The  altered  system 
matrix  N is  stored  onto  the  daily  MEAS  tapes  using  the  keyboard  command  "STORE  10,  N (EXECUTE)"  and 
then  the  tapes  rechecked. 

If  the  ETMS  operator  is  not  very  familiar  with  the  MEAS  routine,  then  it  is  valuable  to  simulate 
collecting  one  complete  data  set  using  the  2G/T  measurement  routine  including  storing  the  data  onto 
the  daily  SUMMARY  and  MEAS  tapes  (the  data  stored  from  the  simulated  run  will  be  overwritten  when  the 
actual  measurements  are  made).  To  do  this,  the  2G/T  option  is  selected  at  the  TRAP  position  (Key  0), 
and  the  program  executed  as  if  it  were  a real  measurement.  For  the  -3  CUT,  the  SIMULATED  STAR  NOISE 
attenuator  is  typically  set  at  9.9  dB  and  left  unchanged  during  the  cut.  During  the  -2,  -1,  0,  +1, 
and  +2  CUTs,  the  SIMULATED  STAR  NOISE  attenuator  is  varied  between  each  power  measurement  in  the  cut 
to  simulate  the  varying  power  from  the  star.  To  do  a fairly  realistic  simulation,  the  amplitudes  of 
the  five  cuts  through  the  star  should  be  roughly  in  the  ratio  of  0.5,  0.7,  1.0,  0.7,  and  0.5  (e.g.,  by 
using  SIMULATED  STAR  NOISE  attenuator  settings  of  3 dB,  1.5  dB,  0 dB,  1.5  dB,  and  3 dB  for  the  peaks 
in  the  simulation).  The  range  used  on  the  SIMULATED  STAR  NOISE  attenuator  does  not  matter  except  that 
if  less  than  about  10  power  level  steps  are  used,  the  curve  looks  pretty  ragged.  The  operator  may 
want  to  use  a range  that  requires  a correction  to  the  value  assumed  for  Ta  (via  key  7)  in  order  to 
gain  experience  in  adjusting  the  magnitude  of  the  star  plot  to  be  full  scale  for  the  0 CUT. 


TABLE  1.  Steps  in  the  measurement  procedure. 


STEP 


TAPES  USED 


PURPOSE 


(PRELIMINARIES) 


1 SITE  PREP(B), 
MEAS(C), SUMMARY 


Prepare  daily  data  tapes,  one  for  each  measurement  day 


2 EQUIP  CHECK  (E), 
MEAS(C) 


Validate  hardware  and  tapes  before  shipping  to  antenna 
site 


(DATA  ACQUISITION) 

3 EQUIP  CHECK  (E) 


Validate  hardware  after  arrival 


4 MEAS(C) 


Determine  antenna  offsets,  sky  profile 


5 MEAS(C) .SUMMARY 


Collect  data 


(DATA  ANALYSIS) 

6 SUMMARY,  SPLIT 


Split  multiple  frequency  data  files  into  single 
frequency  data  files 

Replace  isolated  bad  data  points 

Best  fit  parameters  for  data  sets 


7 CHECK  SET  (G) 


8 FIT  (F) 


9 REWORK(D) .SUMMARY  Calculate  G/T,  etc.  and  plot  results 
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The  third  measurement  step  is  made  at  the  measurement  site.  An  equipment  check  is  performed  to 
validate  that  the  equipment  has  been  properly  assembled  and  is  in  working  condition. 

The  fourth  measurement  step  is  to  connect  the  reference  noise  source  to  the  directional  coupler 
in  the  antenna  room,  and  the  output  from  one  or  more  of  the  earth  terminal  down  converters  to  the 
ETMS.  Then  the  system  is  checked  to  verify  it  has  been  properly  connected.  Next  the  MEAS  program  is 
loaded  and  the  offset  corrections  for  the  antenna  pointing  are  determined  using  key  4 (STAR  FIX 
routine)  in  the  MEAS  program,  and  the  sky  profiles  (sky  temperature  versus  antenna  elevation  along  the 
star  trajectory)  are  established  using  the  1SKY  option  in  the  MEAS  program. 

The  fifth  step  is  to  collect  measurement  data  for  G/T,  G/Ta,  NEF,  and  NUF.  A measurement  set 
contains  six  cuts.  For  a cut,  the  antenna  is  pointed  to  a computed  coordinate  position;  then  a string 
of  power  measurements  (typically  30)  relative  to  the  noise  add  signal  are  taken  6 seconds  apart  as  Cas 
A or  the  moon  drift  through.  One  cut  is  taken  on  the  cold  sky  about  2 degrees  away  (in  declination) 
from  Cas  A or  the  moon.  The  remaining  cuts  are  spaced  equidistant  throughout  the  main  beam  of  the 
antenna  pattern.  For  the  string  of  power  measurements,  the  ETMS  is  sequentially  connected  to  the 
outputs  of  one,  two,  or  three  different  down  converters  so  that  the  information  for  one,  two,  or  three 
frequencies  are  collected  within  one  measurement  set.  For  the  data  collecting  program,  selected  data 
points  near  the  predicted  star  maximum  are  least  square  fit  to  a two-dimensional  parabolic  curve.  The 
result  of  this  fit  is  used  to  calculate  corrections  to  the  antenna  pointing.  The  data  are  stored  and 
G/T,  G/Tg,  NEF,  NUF,  antenna  half-power  beamwidths  (HPBW),  and  the  updated  antenna  point  offsets  are 
calculated  and  printed  out. 

After  all  the  data  has  been  taken,  the  sixth  step  of  the  procedure  is  to  load  the  SPLIT  program 
and  split  the  data  files  that  contain  data  for  two  or  three  frequencies  into  two  or  three  data  files 
containing  data  for  only  a single  frequency.  Only  single-frequency  data  can  be  processed  in  the 
remaining  steps  of  the  procedure. 

The  seventh  step  (which  may  be  done  after  leaving  the  measurement  site)  is  to  replace  any 
isolated  bad  data  points  in  the  data  sets.  Typically,  this  step  is  not  needed  and  is  bypassed. 

In  the  eighth  step,  each  data  set  is  least  squares  fit  to  a three-dimensional  Gaussian  curve. 
The  fit  parameters  are  then  stored  back  on  the  data  tape  for  the  precision  G/T,  etc.  calculations  done 
in  the  last  step. 

The  ninth,  and  last,  step  in  the  procedure  is  to  recalculate  the  values  for  G/T,  G/Ta,  NEF,  NUF, 
and  HPBW  using  the  precision  fit  results  for  each  data  set  and  to  plot  or  tabulate  these  results  as  a 
function  of  antenna  elevation. 
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TABLE  2.  Program  and  data  file  identification. 
File  size  is  in  words. 


SYMBOL 

NAME 

FILE  SIZE 

COMMENTS 

★ 

spacer 

10 

Spacer  file,  used  as  safeguard 

A 

LOADER 

2100 

Loads  and  initializes  B,  C,  D,  and  1 

B 

SITE  PREP 

12,000 

Calculates  and  stores  site  and 
almanac  information 

C 

MEAS 

9,900 

Measurement  routine 

D 

REWORK 

11,999 

Final  calculations  of  G/T,  etc. 
plots  and  tabulates  results 

E 

EQUIP  CK 

8,000 

Check  ETMS  hardware  performance 

F 

SPLIT 

3,000 

Splits  multiple  frequency  data 
file  into  single  frequency  files 

G 

CHECK  SET 

5,000 

Replaces  isolated  bad  data  points 

H 

FIT 

9,000 

Fits  data  sets  to  3-D  Gaussian 

key 

key 

300 

Program  for  the  special  keys  in 
B,  C,  D,  and  E programs 

X 

SUBROUTINE 

2,500 

Subroutines  used  in  B,  C,  D,  and  E 

S 

S data 

200 

Star  data  (positions  etc.) 

T 

T data 

300 

Star  and  site  data 

N 

N data 

600 

ETMS  parameters  data 

M 

M data 

900 

Summary  of  computed  results 

data 

data 

550 

Measurement  results  storage 
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5.  OVERVIEW  OF  THE  COMPUTER  CASSETTE  TAPES 


The  ETMS  has  eight  different  computer  tapes.  These  tapes  are  referred  to  in  this  paper  by  the 
major  computer  program  on  the  tape  or  by  the  primary  purpose  of  the  tape.  The  eight  tapes  are:  (1) 
SITE  PREP  (B)  tape,  (2)  EQUIP  CHECK  (E)  tape,  (3)  MEAS  ( C)  tape,  (4)  SUMMARY  tape,  (5)  SPLIT  (F)  tape, 
(6)  CHECK  SET  (G)  tape,  (7)  FIT  (H)  tape,  and  (8)  REWORK  (D)  tape.  The  purpose  of  each  of  these  tapes 
can  be  deduced  from  their  use  in  the  measurement  routine  as  noted  in  table  1.  Each  of  the  eight  tapes 
are  marked  for  files  of  various  lengths  as  determined  by  the  file  to  be  stored  on  the  tape.  There  are 
a number  of  very  short  files  (10  words  long)  that  are  not  used  to  contain  information.  They  are 
marked  on  the  tape  to  speed  the  computer  search  for  the  major  files,  or  as  a safeguard  against  acci- 
dentally overwriting  an  important  program  if  the  wrong  tape  is  inadvertently  left  in  the  computer  (by 
having  a numbered  file  which  is  too  small  when  a computer  store  command  is  attempted  with  the  wrong 
tape  installed). 

The  programs  or  kinds  of  data  stored  in  the  tape  files  are  listed  in  table  2,  along  with  a brief 
explanation.  The  size  of  the  file  marked  on  the  tape  to  accommodate  these  programs  and  data  is  given 
in  computer  words  (the  means  by  which  the  ETMS  computer  specifies  file  size).  Table  3 lists  the  file 
maps  for  the  eight  tapes. 

The  summary  tape  is  used  in  the  external  cassette  at  the  same  time  either  MEAS,  SPLIT,  or  REWORK 
is  used.  The  summary  tape  collects  duplicated  measurement  data  when  used  with  the  MEAS  tape.  When 
used  with  the  REWORK  tape,  the  summary  tape  is  the  source  of  measurement  data  being  reworked  and  the 
tape  upon  which  the  results  are  stored.  In  contrast,  a MEAS  tape  is  an  archives  tape  which  is 
inserted  for  each  data  run  and,  at  the  end  of  the  data  run,  the  measurement  program  and  the  measure- 
ment conditions  are  stored,  the  protect  tabs  are  removed,  and  nothing  new  is  ever  written  on  it 
again.  That  is,  the  summary  tape  is  a working  tape,  and  a MEAS  tape  is  an  archives  tape. 
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TABLE  3.  File  maps  of  the  eight  computer  tapes 


See 

table  2 

for  data 

file  identification 

and  the 

size  of  the 

marked 

tape  file. 

1 

2 

3 

4 

5 

6 

7 

8 

FILE 

SITE 

EQUIP 

MEAS 

SUM 

SPLIT 

CK  SET 

FIT 

REWORK 

0 

A 

E 

A 

* 

F 

G 

H 

D 

1 

* 

* 

* 

M 

* 

* 

★ 

* 

2 

key 

key 

key 

* 

key 

key 

key 

3 

* 

* 

★ 

N 

★ 

★ 

★ 

4 

X 

X 

X 

* 

X 

5 

* 

* 

★ 

M 

★ 

6 

S 

N#3 

s 

* 

s 

7 

* 

* 

★ 

N 

★ 

8 

T 

N#4 

T 

* 

T 

9 

* 

* 

★ 

data 

★ 

10 

N 

ms 

N 

data 

N 

11 

* 

* 

★ 

data 

★ 

12 

B 

N#6 

C 

data 

D 

13 

* 

* 

★ 

data 

14 

data 

data 

15 

★ 

data 

16 

data 

data 

59 

★ 

data 

60  data 


65  * 

66  data 


* Spacer  file 
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6.  THE  COMPUTER  PROGRAMS 


Following  are  brief  descriptions  of  the  purpose  of  particular  programs  and  some  comments  about 
the  key  structural  elements  of  the  program.  These  comments  are  then  followed  by  an  annotated  computer 
pri ntout. 

The  purpose  of  the  annotated  computer  printouts  is  to  provide  comments  and  instructions  in  a 
terse  form  for  the  operation  of  the  various  computer  programs  and  to  display  the  normal  responses  to 
the  computer-generated  questions.  In  the  context  of  the  computer  printout,  some  instructions  are 
easier  to  locate,  and  the  meaning  more  obvious.  Keyboard  entries,  which  can  be  deduced  from  the 
printout,  have  no  special  notation  on  the  printout.  For  example,  the  demand  for  a keyboard  entry  is 
indicated  by  a question  mark,  so  the  entry  after  the  question  mark  is  the  keyboard  response.  If  there 
is  no  obvious  response,  the  response  was  a space  bar  followed  by  execute,  which  is  the  standard 
response  when  the  value  of  the  parameter  currently  in  the  computer  memory  is  satisfactory  and  no 
change  is  desired.  Keyboard  questions  that  are  needed  but  are  not  obvious  on  the  printout  are 
indicated  with  an  asterisk,  followed  by  an  explanation  of  the  operation  performed. 

Each  program  (i.e.,  LOADER,  EQUIP  CHECK,  SITE  PREP,  MEAS,  REWORK,  etc.)  contains  a position  in 
the  computer  program  that  will  be  referred  to  as  "The  Restart  Alternatives  Position"  (TRAP).  On  every 
program  tape,  one  way  to  reach  TRAP  is  by  pressing  Key  0 (denoted  fO  on  the  upper  right  hand  set  of 
program  keys  on  the  computer  keyboard).  This  is  the  point  on  each  program  tape  where  the  operator  can 
choose  the  major  options  available  on  the  program.  This  restart  position  is  usually  the  position  in 
the  program  where  the  computer  stops  when  a task  has  been  completed.  Going  to  TRAP  via  key  0 normally 
clears  all  of  the  adverse  internal  computer  flags,  etc.,  sometimes  set  up  when  a computer  error  is 
encountered. 

6.1  The  EQUIP  CK  Program 

The  purpose  of  the  equipment  check  (EQUIP  CHECK)  program  is  to  validate  that  the  ETMS  is 

operating  satisfactorily  after  being  transported,  to  establish  the  operating  points  and  charac- 
teristics of  the  earth  terminal,  and  to  collect  historical  information  concerning  normal  operating 

conditions. 

At  TRAP  (e.g.,  via  Key  0),  normally  the  "1  = AUTO  CK"  option  is  selected.  The  "0  = KEY  LIST" 
option  prints  the  list  of  manual  tests  that  can  be  selected  using  the  various  program  keys.  The 

manual  operations  allow  a selection  of  graph  scales,  or  measurement  repeat  numbers,  etc.,  that  is  not 
available  with  the  "AUTO  CK"  option.  In  the  AUTO  CK,  all  the  pertinent  tests  are  performed  in 
sequence  with  ranges  and  scales  preselected.  The  various  tests  are  discussed  in  the  following 

paragraphs. 

To  execute  a single  test  manually,  enter  TRAP  to  remove  the  AUTO  CK  flag  (F2),  then  press  the 
appropriate  special  function  key.  Additional  information  concerning  the  equipment  check  is  contained 
on  the  annotated  computer  printouts  in  section  6.1.8. 

6.1.1  Key  1:  Check  List 

The  check  list  sequentially  lists  the  nominal  settings  and  conditions  that  are  required  for  the 
normal  operation  and  test  conditions  of  the  ETMS.  In  the  AUTO  CK  option,  there  is  an  opportunity  to 
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step  over  the  check  list.  The  step-over  would  be  appropriate  if  the  operator  has  already  performed 
the  check  list  once  and  is  redoing  the  AUTO  CK  to  determine  if  the  ETMS  has  stabilized. 

6.1.2  Key  2:  Check  DVM 

The  purpose  of  this  routine  is  to  verify  that  the  digital  voltmeter  (DVM)  is  obeying  the  computer 
commands  properly.  The  ETMS  control  unit  sends  a command  to  short  the  input  to  the  DVM  and  change 
scale,  etc.  The  calculator  display  indicates  the  appropriate  response  and  holds  this  command  condi- 
tion until  the  operator  presses  some  key--e.g.,  the  space  bar  followed  by  pressing  the  "EXC"  key.  If 
the  DVM  fails  to  perform  properly,  check  to  insure  that  control  cables  between  the  "ETMS  Control 
Unit,"  the  calculator,  and  the  DVM  are  secure.  If  this  does  not  solve  the  discrepancy,  refer  to  the 
maintenance  manual. 

6.1.3  Key  3:  Check  Channel  Voltages 

The  purpose  of  this  check  is  to  verify  that  the  various  power  supply  voltages  are  correct,  and 
that  all  of  the  multiplexer  commands  are  being  properly  executed.  This  program  sequentially  selects 
the  multiplexer  channels  starting  with  channel  zero,  then  reads  the  voltmeter,  prints  out  the  results, 
compares  the  voltmeter  reading  with  nominal  conditions,  and  prints  out  "NOT  NORMAL"  for  the  channels 
which  are  outside  the  expected  range  for  stabilized  operation  of  the  ETMS.  When  the  equipment  check 
is  run  right  after  the  equipment  is  first  turned  on  (as  it  should  be),  several  of  the  channel  checks 
typically  indicate  "NOT  NORMAL".  More  will  be  said  of  this  in  the  following  sections.  If  a channel 
voltage  continues  to  be  out  of  normal  range  after  three  hours,  unless  otherwise  indicated  below,  make 
sure  that  all  the  cables  are  connected  properly,  then  consult  the  maintenance  manual. 

6. 1.3.1  Channel  0:  GROUND  DVM 

When  the  ETMS  has  stabilized,  the  output  of  the  DVM  with  its  input  grounded  should  be  zero  within 
10"^  volts.  It  typically  requires  three  hours'  operation  before  the  voltage  is  consistently  within 
tolerance.  If  the  voltage  is  not  within  tolerance  after  three  hours  operation,  the  DVM  should  be 
rezeroed.  To  do  this:  (1)  stop  the  program  mode  by  pressing  the  "end"  key,  (2)  manually  short  the 

input  terminals  of  the  DVM,  (3)  take  the  DVM  out  of  program  control  via  the  "program  control"  button 
on  the  DVM  front  panel,  (4)  switch  manually  to  the  most  sensitive  voltage  scale,  (5)  rotate  the 
"external  rate"  knob  to  the  full  clockwise  position,  then  (6)  zero  the  DVM  using  the  dc  zero  adjust  on 
the  front  of  the  DVM.  After  the  adjustment,  the  "program  control"  button  must  be  returned  to  the  "in" 
position,  the  "external  rate"  knob  in  the  full  ccw  position,  and  THE  EXTERNAL  SHORT  REMOVED.  If  this 
Channel  0 test  of  the  Key  3:  Check  Channel  Voltages  test  still  is  not  within  tolerance,  then  there  is 

probably  a problem  in  the  multiplexer  circuitry  and  the  maintenance  manual  should  be  consulted. 

6. 1.3. 2 Channel  1:  Temperature 

If  the  remote  temperature  probe  is  connected,  the  Channel  1 voltage  reading  is  the  probe  tempera- 
ture in  Fahrenheit  [8]  divided  by  100.  The  indicated  temperature  should  immediately  be  within  3 
degrees  of  the  temperature  as  registered  on  the  stand-by  manual  temperature/relative  humidity  meter, 
or  as  displayed  by  the  temperature  readout  on  the  temperature/humidity  unit.  If  the  remote  tempera- 
ture probe  is  not  connected,  then  the  Channel  1 voltage  is  not  important. 
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6. 1.3. 3  Channel  2:  Dew  Point 


If  the  dew  point  sensor  with  its  lithium  chloride  bobbin  is  installed  according  to  the  site  setup 
instructions  in  the  maintenance  manual,  the  voltage  in  Channel  2 is  the  dew  point  temperature  divided 
by  100  as  indicated  by  the  dew  point  readout.  The  dew  point  reading  will  not  be  accurate  for  at  least 
60  minutes  after  turning  the  equipment  on.  The  dew  point  detector  will  not  function  when  the  outdoor 
temperature  is  below  freezing.  The  relative  humidity  calculated  from  the  dew  point  reading  should 
agree  with  the  relative  humidity  reading  on  the  stand-by  manual  temperature/relative  humidity  meter 
within  about  10%. 

6. 1.3. 4 Channel  3:  +20  Volts,  RF  Unit 

Channel  3 monitors  the  primary  power  supply  in  the  ETMS  Control  Unit  which  powers  the  two  10-200 
MHz  signal  amplifiers.  Check  the  J355/665  cable,  or  consult  the  maintenance  manual  in  case  of  a not 
normal  reading. 

6. 1.3. 5 Channel  4:  +12  volt,  RF  Unit 

Channel  4 monitors  the  power  supply/reference  voltage  which  powers  the  simulated  noise  add 
sources. 


6. 1.3. 6 Channel  5:  D/A  Output 

Channel  5 monitors  the  programmable  stable  D/A  offset  voltage  used  for  the  NBS  type  IV  power 
bridge. 

6. 1.3. 7 Channel  6:  Crystal  Diode  Voltage 

Channel  6 monitors  the  crystal  diode  voltage.  The  crystal  diode  voltage  is  used  to  activate  the 
power  alarm  circuit  which  is  used  to  protect  the  thermistor  power  element  in  the  NBS  type  IV  power 
bridge.  The  crystal  output  is  a negative  voltage  proportional  to  the  incident  power. 

6. 1.3. 8 Channel  7:  D/A  Reference  Voltage 

Channel  7 monitors  the  precision  reference  voltage  in  the  digital-to-analog  voltage  converter 
which  is  used  as  the  precision  offset  voltage  needed  in  conjunction  with  the  NBS  type  IV  power 
bridge.  If  this  voltage  is  not  normal,  check  the  operation  of  the  digital  voltmeter  or  consult  the 
maintenance  manual. 

6. 1.3. 9 Channel  8:  Power  Bridge  Output 

Channel  8 monitors  the  voltage  across  the  NBS  type  IV  power  bridge.  This  voltage  requires  about 
three  hours  to  stabilize  to  within  ±0.2  volts. 

6.1.3.10  Channel  9:  Set  Fine  Voltage 

Channel  9 sets  the  precision  digital  offset  voltage  used  to  buck  out  the  voltage  across  the  NBS 
type  IV  power  bridge.  This  bucking  voltage  is  used  to  improve  the  resolution  of  measuring  the  small 
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change  in  voltage  caused  by  the  microwave  power  changing  the  resistance  of  the  power-sensing 
thermistor.  The  magnitude  of  Channel  9 is  approximately  1/10  of  the  Channel  5 voltage. 

6.1.3.11  Channel  10:  Power  Bridge  vs.  Fine  Reference 

The  Channel  10  voltage  is  the  power  bridge  voltage  bucked  near  zero  by  the  precision  digital 

offset  voltage  as  set  using  a Channel  9 command. 

6.1.4  Key  4:  Check  Program  Attenuators 

The  purpose  of  this  test  is  to  verify  the  proper  operation  of  the  program  attenuators.  In 

addition,  the  measured  value  of  the  standard  attenuation  is  measured  over  a 16-dB  range.  The  varia- 
tion (in  dB ) from  the  assumed  value  is  printed  out  as  STD  CK  (?  #2.  This  check  is  one  of  the  checks  of 

the  linearity  of  the  ETMS  measurement  system.  The  repeatability  of  the  measured  values  is  printed 

out,  as  is  a running  printout  of  the  drift  in  the  absolute  power  level  throughout  the  duration  of  the 
test.  Thus,  besides  testing  the  attenuation  steps  of  the  programmable  attenuator,  this  test  also 

indicates  short-term,  and  moderate-term  stabilities  of  the  ETMS  measurement  system.  If  a record  of 
the  earth  terminal  short-  and  medium-term  stabilities  is  desired,  instead  of  using  the  internal  ETMS 
noise  source,  the  earth  terminal  with  the  ETMS  microwave  noise  sources  can  be  connected  as  the  test 
si gnal . 


6.1.5  Key  5:  Graph  Option:  Check  Power,  Linearity,  and  Stability 

This  check  is  a similar  check  to  the  last  check,  except  the  results  are  presented  graphically. 
In  this  check,  three  measurements  of  the  attenuation  of  the  standard  attenuator  are  averaged  together, 
and  the  mean  and  the  standard  deviations  are  plotted.  If  the  standard  deviation  is  0.3  dB  or  greater 
(i.e.,  have  experienced  some  hardware  malfunction),  the  crucial  bridge  voltages  are  listed  automati- 
cally for  every  power  measurement  in  the  measurement  set.  BRIDGE  V is  the  voltage  measured  across  the 
bolometer  of  the  NBS  IV  rf  power  meter  (Channel  8).  V 7 and  V9  (Channel  10)  are  the  voltages  across 
the  bolometer  minus  the  offset  voltage  when  the  rf  power  is  OFF,  and  V8  is  this  difference  voltage 
when  the  rf  power  is  ON.  The  resulting  computed  power  is  listed  under  PWR(mW).  The  measurements 
occur  in  pairs.  The  second  measurement  in  the  pair  is  made  with  the  standard  attenuator  inserted. 
Under  the  column  listed  as  CK  ERR,  the  difference  (in  dB)  in  the  calculated  attenuation  of  this 
standard  attenuator  from  the  assumed  value  for  the  standard  is  printed.  The  very  first  entry  under  CK 
ERR  is  equal  to  the  value  assumed  for  the  check  standard,  because  there  is  no  prior  power  value  and  it 
is  arbitrarily  taken  as  zero  power. 

This  check  helps  identify  which  relay  is  malfunctioning,  or  at  least  to  narrow  down  the  type  of 
malfunction.  The  initial  power  level  of  this  power  ratio  test  is  varied  over  a 16-dB  range.  Any 
nonlinearity  to  the  type  IV  power  bridge,  or  unusually  noisy  measurement  conditions,  are  easiest  to 
spot  in  this  graph.  The  magnitude  of  the  nonlinearity  may  also  be  identified  on  the  Key  4 or  Key  6 
test.  Any  failure  of  the  standard  attenuator,  or  of  the  relays  which  switch  the  standard  attenuator 
in  and  out,  are  most  obvious  in  this  test.  If  a power  supply  becomes  very  noisy,  it  can  show  up  as  a 
change  in  nonlinearity  (i.e.,  a change  in  the  change  of  the  value  measured  for  the  standard  attenuator 
versus  input  power  magnitude). 
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The  maximum  input  power  level  should  be  less  than  approximately  0.7  mW,  otherwise,  one  of  the 
power  measurement  voltages  can  go  out  of  range  of  the  digital  voltmeter  and  a repeated  REZERO  will  be 
indicated.  If  the  program  stops  after  a REZERO  and  displays  PWR  ERR,  check  the  input  power  and 
readjust  it  to  be  less  than  0.7  mW.  Then  press  "cont",  "execute".  If  this  does  not  solve  the  diffi- 
culty, there  may  be  a problem  in  the  operation  of  Channel  9 in  attempting  to  set  the  fine  reference 
voltage. 

6.1.6  Key  5:  Table  Option: 

Check  Power,  Linearity,  and  Stability  of  the  Type  IV  Bridge 

A second  option  of  Key  5 is  to  print  out  the  key  bridge  voltages  for  repeated  power  measure- 
ments. If  one  of  the  multiplexed  relays  fails  to  operate  correctly,  the  identification  of  which  relay 
is  malfunctioning  is  often  obvious  from  which  measured  voltage  value  becomes  unstable. 

6.1.7  Key  6:  Noise  Add  Test 

This  check  is  designed  to  check  the  operation  and  stability  of  the  noise  add  sources.  When  the 
ETMS  input  is  connected  to  the  internal  noise  add  sources,  it  checks  the  amplitudes  and  stabilities  of 
the  internal  noise  add  sources.  When  the  ETMS  is  connected  to  the  earth  terminal,  this  test  checks 
the  magnitude  and  stability  of  the  microwave  noise  add.  Information  on  the  stability  of  the  earth 
terminal  is  also  recorded. 

The  power  of  the  system  noise  (the  power  from  noise  add  #1  and  noise  add  #2)  is  printed  out 
before  the  stability  test  begins.  If  one  of  the  noise  add  sources  is  not  functioning,  it  will  be 

obvious  here.  In  the  main  printout,  the  power  measurements  and  power  ratios  are  printed  in  the  first 
row,  and  the  standard  deviation  of  the  measurements  are  printed  in  the  second  row. 

The  power  ratios  listed  in  the  five  right-hand  columns  of  the  test  should  be  independent  of 
initial  power  level.  In  particular,  the  ratio  of  noise  add  #1  to  noise  add  #2  at  a particular  fre- 
quency should  not  change  significantly  over  a long  period  of  time.  If  it  does,  it  signifies  that  one 
of  the  noise  add  sources  is  drifting  or  is  becoming  unstable.  An  unstable  noise  add  source  introduces 
an  unnecessary  measurement  error  and  needs  to  be  corrected. 
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EQUIP  CHECK  (cont) 
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c 


HBSiE. 12  <•  D5-F0 

, / 

Aci/zs/ov 


mahJ  Pmhm  j-»Aog  o 


CcJit**  X*  2.r.£l 

lCiE'-l  2 1 . • r-  • 

Ti-Fu:  f I ‘in -4  r 2-4 

C — 1 

Sl^»i/ri*4  iwofo 


# 6.0? 


/ *'*'<”  PP0G  KEY  3i 

*—  E7«S  SCMAL  va 

CHECK  CHANNEL  VOLTAGE 

3 

CHANNEL 

VOLTAGE 

STATUS 

NOMINAL 

+ - R ft  S’  1 l-  L 

6=HC  OFFSET 

0 

OK 

0 

1 . 00O00E-0' 

1 =TEMP 

0 . 74 1 S4  — 7 / g v f 

OK 

0 . 5 

0 . 5 

£=DEU  POINT 

g.  4 SIS  - *3.13  F 

OK 

0 . 5 

0 . 5 

3=+2C  VOLTS 

20. 01? 

OK 

20 

0 . 2 

4=+ 1 2 VOLTS 

1 1 . 9878 

0! 

11.9 

0.  1 

5=IiflC  OUTPUT 

4 . 8326 

OK 

4.8333 

0 . 0 2 

6= XT RL  HI  DUE 

1.71 600E-03 

OK 

-0 . 0 i 25 

0 .0125 

?=Ii  A REF 

E . 2367 

OK 

6.24 

e . 0 1 

8=E:RIiG  OUTPUT 

2.4823 

OK 

2.5 

0.  i 

9= SET  FINE  REF 

0.48333 

OK 

0. 486688 

5 . 0 0 0 0 0 E - 0 

1 0=BRDG  REF  - 

1 . 07000E-04 

OK 

0 

1 . 0000 0E-0 

24 


EQUIP  CHECK  (cont) 
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EQUIP  CHECK  (cont) 
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2 

2. 4839 

0. 000439 

- 0 . 0 0 2 0 0 0 

0 . 000436 

O . 080 4 MW 

0. 0179BB 

8 . 8 0 ' ; 

3 

2. 4839 

0 . 008438 

-8.012810 

0. O00434 

0.3281  MW 

0. 00601'B 

0 . i s 

4 

2.4339 

0. 000437 

-0 . 002798 

0 . 00043 1 

O. OS0 2 MW 

0. 0174HE; 

O.  19'. 

5 

2. 4839 

0. 080435 

-0. 012810 

0 . 0OO432 

0.3281  MW 

0. 0166BB 

8.  16"; 

6 

2.4839 

0. 000434 

-0 . 002807 

0 . 000429 

0. 0804MW 

0 . 0078DB 

O.  I4i; 

7 

2.4839 

0. 000431 

-0. 012863 

0. 000427 

0. 32S3MW 

O.0237DB 

0. 191; 

8 

2.4839 

0 . 00043 1 

-0 . 002808 

0. 000426 

O . 0SO3MW 

0. 0263 BE: 

0.1H; 

9 

2 . 48  3 9 

0 . O00429 

-0. 012818 

0 . 000426 

0. 3 2 79 MW 

0. 0085 BE: 

9. 19i; 

10 

2.4839 

O . 00O428 

-O. 002814 

0 . 000424 

0. 0884 MW 

0 . 0O3 9 BE: 

O.  l li; 

1 1 

2 . 4 8 3 9 

8. 000423 

-O . 0 1 2797 

0 . 000423 

0. 3 2 76 MW 

-0. 001 1 IiB 

0 .20*; 

12 

2. 4839 

0. O00425 

-0 . 0828 1 5 

0. 000422 

O. 08 04 MW 

0. 00 1 0BB 

O.  ion 

13 

2 ■ 4 8 3 9 

0 . 000425 

-0. 012866 

O . 00642 1 

0. 3292 MW 

0. 02273E 

O . 2 1 •; 

14 

2 . 4839 

U . 000423 

-0. 002813 

0 . 000420 

0 . 0803MW 

0. O280BB 

u.  10"; 

1 Ci 

2. 4839 

0 . 000420 

-0.O12854 

@ 3 0 0 0416 

O . 3288MW 

0. 02253B 

0 . 20°; 

16 

2.4839 

0. 000421 

-8 . 80282 1 

0. 000416 

0. 08O4MW 

0. 01 58 BE: 

0 . 8 9 

17 

2 . 48  3 9 

0 . 00041 8 

-0. 812837 

0. 000414 

0.3283MW 

0. 0096BB 

0.  19  . 

18 

2. 4889 

0. 000417 

-0.002820 

0 . 0004 1 3 

0. 080 3MW 

0. 01 56 BE: 

u . 39*; 

19 

2 . 4829 

0. 0004] 5 

-0.012849 

0. 00041 1 

O. 32 S3 MW 

0.0  ISSUE 

0.  18*; 

2U 

2. 4839 

0 . 0004 1 3 

-0 . 002829 

0. 000410 

O. 08O4MW 

O.Ol 1 2BB 

0. 8 9'. 

21 

2.4839 

0. 000412 

-8.012841 

0 . 00041 0 

O. 3283 MW 

0 . 0379BB 

0.  IT'-. 

22 

2. 4839 

0 . 0004 1 0 

- 0 . 0 0 2 6 3 2 

0 . 000407 

0. 08 84 MW 

0. 0879BB 

0 . 09*. 

2.4339 

0 . 00041 0 

-8.012831 

0 . 0004 06 

0. 3280MW 

0. 083 7 BE: 

0.  IT7'. 

24 

2.4839 

0 . 000407 

- 0 1 0 0 v g 3 4, 

0 k 0 0 3 4 0 3 

O. 08O5MW 

0. 0Q30BB 

0 . 0 9 *. 

23 

2 . 4 0 3 3 

0 . 000406 

-0.01 2804 

0 . 0 0 M 4 0 2 

0.3292MW 

0. 0190BB 

0.  1"'. 

26 

2. 4839 

0 . 000404 

-0 . 00284 1 

0 . 0004 00 

0 . 0805MW 

O.  01 6 3 BE: 

u.  id'; 

27 

2 . 48 3 9 

0 . 000404 

-0 . 8 1 2850 

8 . 000099 

0. 3283MW 

■ 0 . Q844BB 

y.0.  17'. 

2i' 

2.4839 

0 . 0 0 0 4 0 2 

-0. 002345 

0 . 0 0 0 3 9 9 

O . 0806MW 

0. 0O1  IBB  y 

" 0 .11'. 

•f  '*  *CAi 
O.CB  h*) 
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EQUIP  CHECK  (cont) 


NBS1E.12  <D5- F0>  EQUIP  CHECK 


1024  21.40) 

T1-F0:  X.  05  <11-4  T2-4 


SI  ML 

F'ROij 
STAR  RUN: 

KEY  5: 
■3.5  dE: 

CHECK  PWR, LINEARITY,  STAB  OF  TYPE  I 
IF  FREQ:  70  MHz 

INPUT 

HTTH: 

1?  dE: 

BN END: 

5.3  MHz 

STD 

HTTN:  6. 

, 100  dE: 

#1-  #2o.dd : 

0. 2468 

#i 

LEVEL: 

17 

DB  E 

:t 

+ 

0 

EE:  CK 

3TB 

MEfiS 

PLOT 

PT  = 

#2 

LEVEL: 

17 

EB  E 

;t 

+ 

i 

EB  CK 

STB 

UNIT 

= 0 

. 0100 

EB 

-0 

250 

-0 

150 

-0 

. 05 

0 0 

. 050 

0.  1 

50 

0 . 2 

50  EE 

# - T I me 

ZEE 

0=  6.12 

5 EE 

flVE 

# 

1 Pi'F 

1 

! 

0F 

^6. 

1 247EB 

0 . 

42SUU 

2. 

I 

+ 

1 

+«  mu  rAiry  6> 

1 123BE: 

0 . 

4 4 Pi  U 

3 

! 

+ ! 

b . 

121  SEE 

0 . 

275MN 

4 

! + ! 

b . 

1 164DE: 

0 . 

219  M p.j 

5 

! 

+ ! 

b . 

111  SEE 

0 . 

175MU 

1? 

i 

+ i 

b . 

1 119EE: 

0 . 

1 40MN 

7 

! 

+ 

! 

8. 

10  86  EE: 

0 . 

1 1 1MN 

8 

1 

+ i 

6 . 

1 20  2 BE. 

0 . 

08  9 MU 

U/hJT 

9 

! 

+ ! 

6 . 

1 13  SEE: 

0 . 

069i"U'! 

Pm 

1 0 

1 1 

! 

+ 

! + ! 

i 

b . 
b . 

1 093 DB 
1148DB 

0 . 

8 5 3 Pi  != ' 
8 4 4 M U 

era? 

12 

j 

+ 

! 

b . 

1057DB 

0 . 

935MW 

13 

1 

+ 

! 

b r 

0790EE: 

0 . 

014171 

14 

1 

+ 

1 

b . 

1051  BE: 

0 . 

022  MW 

15 

! 

+ ! 

OF 

b . 

02  71  EE: 

0 . 

or.  ini 

1C 

! 

+ ! 

• e>TA7lsTICM- 

tnct 

b . 

1 0S3DE: 

0 , 

i ;■ 

! 

+ i 

/ 

Tfft  3 

b . 

1 145  BE: 

4 2 i • kh 

is 

i 

+ J 

b . 

1 205 EB 

0 . 

3 40  MU 

IS 

*<- 

o-  — +—  nr 

H 

b . 

1201  BE: 

0 . 

271  Mil 

£0 

! 

+ ! 

f . 

1227BE: 

0 . 

2 1 7 MU 

21 

! + | 

b ■ 

11 97  EE: 

0 . 

17  3 MW 

22 

i 

+ 

! 

b_. 

1 187DB 

0 . 

132  Ml: 

2 1 

r jz,  Tint 

i 

■f 

i 

7. . 

1 169BB 

0 . 

1 O 9 M U 

24 

XI  few 

sv~ 

1 + ! 

b . 

1 181 DB 

0 . 

25 

! 

+ ! 

b . 

1 127EE: 

0 . 

0b?  MU 

26 

1 

+ ! 

b 

1 0 1 SEE 

0 . 

055171 

27 

i 

+ 1 

6 

1 149BE 

0 . 

344171 

2 8 

! + ! 

6 . 

129-I'E: 

0 . 

035  Mil 

ZS 

! 

+ ! 

b 

102526 

0 . 

02  SHU 

30 

' j 

•f  i 

6 

1 095EB 

0. 

022MU 

31 

1 

+ 

! 

6 

10  8 SEE: 

0 . 

01 8 Mil 

32 

1 

+ 

j 

b 

07 56 DB 

0. 

0 1 *4  i i 5 4 

33 

! 

+ 

! 

b 

1095EE: 

0 

4281111 

34 

i 

+ f 

b 

1 1 :3  8 PE: 

0 

34  21111 

35 

i 

+ i 

1 2 1 3DE: 

0 

27  -1PJ 

37. 

1 4 1 

b. 

L288DB 

0 

218:71 
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EQUIP  CHECK  (cont) 


’6  1 0 2 4 21, 


MBS  IE. 12 


6.0'? 


P= 


H5-F0 

EQUIP  C 

HELP 

Tl-FQ: 

2.  35  "PI -4:  T 2-4 

1? 

F F OG 

KEY 

6 • 

co^fJtc^ret  0 to  pi 

S/*iUi.Arcc>  /Voue 

| 1 . | NOISE  HDD  TEST 

SI  ML 

STAR  FlTTN: 

3 . 5 

dE 

IF  FREQ : 70  MHz 

INPUT 

ATTN: 

17 

d E 

ENDUP:  5.  3 MHz 

STD 

fiTTN:  6 

. 1 00 

dE 

#l/#2add:  l~ ~ 7 1 

- p*A 

odd  #1 

= 0.1 

545  hU 

odd  #2=  0.  (>621  I I 1 4 = • .-it- 

^Tl  amec  „ iTB  att*  ,*mwk  ««« 


G.  13’. 

N 

^ 0 ■ 

2 1 |0.4?': 

VJ 

* 

*v 

1 

v.g , 1 0 9 7 

*0. 

0742  G.G  3 9 1" 

M 

* G . 1 0 ' . 

t 

Q 

«r  1 . 

* 

To 

«v. 

^ fi . H r,  ,'7 

a.  1 . 

8594  0.G315 

2G 

5 0.15-. 

<0. 

_ 1 ' • . oh. 

<> 

* 0 

M . 

•Cm. 

£ 

*.01  . 


0 . 046 0 


1 0 . 0 2 4 ■ 


U.  Ur1, 
0 . 6 1 ’ 


G.  1105  -G. 

* - - , % 

01 . 4 r . 'Z/  M . 


5 

V 

V* 

• 


0.  10 


<|1 

o y 


*4-  V 

, T 


,0433  f 

ir.  ^ 


0367 

, 0?'. 


10. 61? 8 


y n . 0 1 ■ 


■0.0346  s.0.0234 


0.  17'. 


* 


0 . 16'. 


0 . 0 1 2 1 

1 . 07'. 


*4  : 1 |1  ,’r 

S ■ " 

<j  ii . Hi-,:. 

•4 

y 0 . 0 6 1 2 
.3.  1 S’. 

0 . 0435 

0.4?'. 


0.42'. 


74‘- 1 


;i  0.2545 


.0 . 0 1 36 

0 . 20'. 


,0219  O.014S 

, 20:.  0.00:; 


0 0034  0,0: 


0 . 0 J 2 JX 


’ 1 


n , 


;i  . 


i . 0 1 ; 

'.  17' 


0 .011 8 

0 . 324 


0 . 03 , 
0 . 3 1 ' 


0 . out. : 

1.4  1'. 


a»v/o*iLY 

0 . O 3 1 0 


0 . 0246 


6NC  »*  «»jf 

0 . 0 : : : 4 

0.11  ", 

0 . 0 3 0 7 
0. 4 6', 


74  0 
1 0 ' 


n . 


■**/»>'  Mil"1 

0 . 554 


o .31' 


l . 41 '. 


"Tt— 

r 1-12 

STl77* 

i£ 

0.7117 

0. 5734 

0 , 021 3 

0 . 5 G \ 

0.  16'. 

0 . 8 i 57 

0. 7120 

0.5719 

O' . 0 1 6 1 

0 . 11  ’. 

0. 22". 

01 . 0 0 :_i 

G.7119 

0.57O6 

O . 8147 

0 . 70’; 

8.45'. 

0 . 0843 

8.7116 

0 . 569  9 

0 . 0 3 1 0 

0 . 4 b * . 

0 . 4 U 

-*N 

1 m7.::-l; 

0.5734 

H 1 • 

8 . 8 1 6'1 

4.  . - . 

. L' - i 

4 

* 

$-P  • 7 1 23 

i * i1!7.;' " 

01  „ 01  1 3 01 

5 • - • 

y . y 3 b , 

i. 

jj  0 . 7 0 5 3 

E : . 5 7 0 2 

0.0132 

^0.23*. 

S ’ 0‘. 

y . mm 

\ 

M . .1-1  0 

\ - . 5633 

01  , '-1-1 

3 0.  15’. 

« .3.  ?£:•; 

01 . 01  01  5 1 

*■ 

£ 

. 0.7111 

. 9 

0 . 0i  1 0 9 

2m  _ 43 

? . . 47'. 

fi . 8 1 3 3 

."u.  0 t. 

v*  . J C - ■ 5 

0 . 0 1 0 1 

0 . 0 5 3 

■ 0 . 4,  r . 

0i . y 0i  7 2 

0.7872 

0 . 569 1 

- 0 . 0i  01 7 7 

0 . 11 '. 

0.3?-. 

y . G 1 20 

0.7']  46 

0.5033 

O . O1 0 1 4 

0.  65-.’ 

0.  15'. 

0. 0i 77 

n. 710- 

a 

- m . fi  m f.  :r: 

0 . 1 5 r. 

0 . 3 0 y. 

0 . > '"01  * ' 1 

TTt*S 

*er 

0 fc  7 0 6 6 

0 . 5706 

0i . f!04:3 

0 . 2 3 *. 

O . 3 1 '. 

61 . y 0:  y 4 

0.7107 

6 . 5 6 9 

0 . *3 1 0 7: 

0 . 79*. 

£ . 4 1 

0 . 0 1 ? 7 
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EQUIP  CHECK  (cont) 


<76  1024  23.13"' 

NBS1E.12  < D5-F8 > EQUIP  CHECK  Tl-FQ:  K.05  Dl-4 


Sysivi  # 6.0": 


CHANNEL 


Re  tea  te®  t o see  /f  e/szea,  or 


PROG  KEY  3: 


,'OLTfiGE 


STATUS 


KljH  0 


IHhCK  CM  Hi  Kit  L VCLiAGt 


NOMINAL 


PhHLiE 


0 = I! C OFFSET 
1-TEMP 
2=DEN  POINT 
3= +20  VOLTS 
4=+ 1 2 VOLTS 
5= Ii AC  OUTPUT 
6=NTAL  DIODE 
7 = D-  ft  REF 
8=BRDG  OUTPUT 


0 

0 . 73299 
0. 43129 
20 .019 
11.9881 

- 1 . 73800E-03 
b . 2367 


9= SET  FINE  REF  0.48382 
10=BRHG  vs  REF  3. 85000E-O4 


0 

0 . 5 
0.5 
20 

11.9 

-0 .0125 
6.24 
2 . 5 

G. 4371:: 
0 


1 . r_i  k!  m U i-J  ti  — U "j 

3 . 5 
0 . 5 
@ . 2 
0.  1 
0 . 02 
0 . O 1 25 
0 . 0 1 
0.  1 

5 . 00000E-03 
1 . 00000E- 03 


CONNECT  EARTH  TERM- SET  PUP  LEVEL < 


/ 


P ■$,  ETAS 


a-^CtL 


IF  NEE  b TO  CH-AViC 


ATT/J  etc..  } 


0 ( +»  ■ A^jTO 

Cz. ) 


29 


EQUIP  CHECK  (cont) 


'.76  1 y 2 4 

NBS1E.12  < D5-F0  EQUIP  CHECK  Tl-FQ: 


CD  1-4  T2-4 


° **  TSiTS  ETM  S «K»owW  a^hpadd  '* 

lg70:  **oraHT'*i  • * THtCAtrn  reuMMML. 


CONT 


PROG 

1 EY  6: 

R!H  TERi'il 

riiTlJ  TEC 

T 

on*  e« 

SAME  AS 

9! ML  STAR  ATTN: 

3.5  dS 

IF  FREE 

70  MHz 

Nan  Si  TUT 

INPUT 

i T T N : 

17  dE: 

BNDWri: 

5.3  MHz 

: T B 

4TTN:  6 

.100  dB 

#l--#2add:  0.2 

468 

P=  0.31 

98  ftW 

add  #1 

=0.1 152 

i-u-j 

add  #2=  C 

.4515  p 

U c 

■=•  as  -"  set  = 

3 

P'CpiM) 

P+1+2 

# 1 < nW > 

#2  < i-iW 

# 1 +#2 

# 1 ■■■•'#  2 

P/#l 

F #2 

F 1 + 2 

ST  Bek 

dE: 

0. 3255 

0.2197 

0. 1 167 

O. 4555 

O. 5694 

0 . 2562 

2 . 7795 

0.7119 

0.5722 

0 .0116 

0 . 92*. 

1 . 16'. 

0. 47'. 

0.82'. 

1-321; 

0. 56". 

1 . 041; 

0 . 33"; 

0. 49'. 

0 . 004 1 

0.2661 

0. 1798 

0 . 0962 

0 . 3732 

0. 4656 

0 . 2579 

2.7574 

0.7114 

0.5728 

8.0129 

0 . 6 1 

0 . 6 6 "; 

1 . 671; 

0.61 1; 

0 . 76"; 

i . 45i; 

1 . 431. 

0.  161. 

0. 401; 

0 e 0 1 7 0 

0.21 90 

0. 1476 

O . O 7 8 9 

0. 3031 

0 . 3826 

8.2561 

2 . 7756 

0 . 7 0 9 5 

0 . 5720 

0.0135 

0 . 3 3 

0 . 3 4 " . 

O.  85i; 

0. 68". 

0 . 30"; 

1 . 531. 

1 . 101. 

0. 33"; 

0 . 32"; 

0.0827 

0. 1771 

0. 1195 

0 . O 6 3 9 

0 . 2 4 8 3 

0 . 3 O 9 9 

8.2574 

2.7673 

0.7128 

0. 5716 

O . 8 1 53 

0.  1 S'; 

0.  Id; 

0 . 9 2 *; 

0 . 59"; 

0.  121. 

0 . 7 9 " . 

0 . 83"; 

0 . 58"; 

0.  181; 

O . 0862 

0. 1 405 

0 . 0950 

0 . 05 1 0 

8. 1973 

0. 2464 

8. 2585 

2.7539 

0. 7129 

0.5709  - 

0 . 0020 

0.  16‘. 

0. 34i; 

0 . 6 7 ", 

0. 29". 

0. 45'; 

0 . 5 3 * . 

0 . 70"; 

0.  111. 

0 . 3 1 1; 

0. 0174 

0. 1143 

O . 077 5 

0. 8416 

0 . 1611 

0 . 2009 

0 . 2583 

2.7525 

0.7112 

0 . 57 1 9 - 

0 . 0 m 2 8 

1 . 06". 

i . 46'. 

i-23i; 

l . 331; 

i . 561. 

0.72  *. 

0 . 6 5 * . 

8 . 28"; 

0 .27"; 

8 . 8084 

0..1119 

0 . 0754 

O . 0404 

0. 1574 

0. 1952 

0. 2566 

2 . 7724 

0. 7103 

0.5733 

8 a 0 J 6 2 

0.131. 

0.  131; 

U . 3 6 ’; 

0.1H. 

0 . 3 3 "; 

0 . 28"; 

0. 49i; 

0.  1 31; 

0.41 1. 

6.01 33 

0 . 0 8 9 3 

0 . 0 6 O 3 

8 . 0 322 

0. 1252 

0. 1562 

0 . 257 1 

2.77  3 O 

0.7135 

8.57 i 6 

0.0166 

0.  16'. 

0.  101. 

0 . 20". 

0.  141. 

0.11'. 

O.  12'. 

U.  14'. 

0. 281. 

y.  191; 

0 . 8 0 8 3 

0 . 0694 

0 . 0463 

0 . 025  8 

0 . 0974 

0 . 121 3 

0.25  6 2 

2 . 7805 

0.7123 

0 .572  3 

n . 0 1 0 6 

0.  131. 

0.11  '. 

0 . 2 2 ", 

0 . 4 6 ’ . 

8. 181. 

0 . 6 6 ’ . 

0 . 2 3 

0 . 5 2 "; 

6. 34'; 

0 . 8 0 ■'  0 

0 . 0553 

O . 0374 

0. 0199 

0 . 0774 

0 . 0969 

0 . 2573 

2 . 7 7 6 6 

0.7149 

0.5710 

0 . 0 i 5 5 

£1 . 30". 

0 . 23’. 

O.  17'. 

0 . 3 7 

0 . 3 8 \ 

0.41 '. 

0 . 54". 

0 . 22 " . 

0. 48". 

U. 0143 

0. 0442 

0 , 0 2 9 3 

0. 0159 

0 . 0620 

0 . 0773 

O . 2570 

2.7765 

8. 7129 

0.5717 

0 . 8 ‘j  8 5 

0.  14". 

U.  131. 

0.  471. 

0 . 27'. 

0 . 1 9'. 

0. 64'. 

0.42'. 

y . 3 1 '. 

Ci.  181; 

0 . 0 176 

0. 0353 

O , 0238 

y. 0126 

0 . Ci  49  6 

0 . 86 1 6 

0. 2548 

2 . 7949 

U.7121 

0 . 5739 

0 . 0886 

0 . 0 9 ", 

0.  101. 

0 . 30"; 

0. 431. 

0.  171. 

0 . 23". 

0 . 2 3 " . 

0. 45'; • 

O.  18'. 

0 . 0 1 3 1 

0.0177 

0.0123 

0 . 0 0 6 8 

0. 0201 

0 . 033 1 

0.3381 

2 . 7779 

0. 7109 

O.5709  - 

0 . 0282 

35.13'. 

4 :•  . 03  ^ 

4 1 . 23i; 

0 . 53"; 

42 . 041. 

41 . 531. 

1.36'. 

0 . 4 6 '; 

8 . 2 7 "; 

0 . 0255 

0. 0224 

0 .0151 

0 . 0 0 8 0 

0.0315 

0 . 0 3 9 2 

0 . 2546 

2. 8036 

0. 7126 

8 . 5 7 2 2 

8 . 0084 

0.  17'. 

0.09'. 

1.01  '. 

0 . 52". 

O . U 7’ ", 

1.53'. 

1.31 

0. 56"; 

0 . 23"; 

u . 0 3 8 8 

u . y i r 9 

0 . 0 1 2 1 

0 . 0 0 6 4 

0 . 0252 

0 . 0 3 1 4 

0.2554 

2 . 7 7 : j 4 

0.71 0 0 

0 . 5 7'  O 3 

0.8-  12 

0.  19'. 

0.  35'. 

O.  69". 

0.4?'. 

0. 4 6". 

0. 4 3'. 

0 . 39". 

0.  34 '. 

0 . 2 6 " . 

0 . . 3 
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6.2  The  LOADER  program 


The  purpose  of  the  loader  program  is  to  load  the  key  programs,  the  common  subroutines,  the  star 
data,  the  site  data,  and  the  ETMS  characteristic  data.  This  provides  an  opportunity  to  modify  any  of 
these  program  constants,  and  to  link  in  one  of  the  major  computer  programs  such  as  SITE  PREP  (B),  MEAS 
(C),  or  REWORK  (D).  The  LOADER  program  is  the  first  file  on  each  of  the  B,  C,  and  D tapes.  The 
annotated  printout  for  the  loader  program  appears  with  the  SITE  PREP  program  that  follows. 

6.3  The  SITE  PREP  program  and  Annotated  Printout 

One  purpose  of  the  site  preparation  program  (SITE  PREP)  is  to  anticipate  measurement 
conditions.  A second  purpose  is  to  calculate  and  store  the  site-related  data  onto  the  measurement 
tapes. 

The  normal  means  of  loading  and  using  SITE  PREP  is  covered  on  the  annotated  printout.  However, 
using  key  0 (TRAP),  two  options,  "RESTRT:0  = REGULAR"  and  1 = ALL  QUESTIONS,"  are  available.  For 
option  0 = REGULAR  (the  default  option),  the  minimum  number  of  questions  are  asked.  For  the  option  "1 
= ALL  QUESTIONS",  additional  questions  are  asked  that  are  not  needed  on  the  measurement  tape,  such  as 
the  operating  frequency,  antenna  constants,  system  temperature,  Ta,  etc.  The  answer  to  these 
additional  questions  are  helpful  in  anticipating  the  measurement  conditions  for  an  unusual  antenna 
system,  but,  in  general,  are  of  no  concern. 

The  major  features  available  on  SITE  PREP  are  (1)  Enter  site  data  and  sun/moon  almanac  data  to  be 
stored  onto  the  daily  MEAS  cassette  tapes,  (2)  printout  of  the  site  and  star  data  for  measurement 
documentation,  (3)  printout  of  expected/actual  measurement  conditions  and  errors  using  Cassiopeia  A to 
measure  G/T,  (4)  printout  of  measurement  conditions  using  the  alternate  stars,  Cygnus  A,  Taurus  A,  or 
Orion  A,  and  (5)  graph  the  elevation  of  Cas  A,  Cyg  A,  Tau  A,  Ori  A,  sun  and  moon,  and  tabulate  the 
azimuth  and  elevation  of  Cas  A or  the  moon  versus  Greenwich  Mean  Time  (GMT). 
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SITE  PREP  ANNOTATED  PRINTOUT 


if  INSERT  SITS  FF.gP  T*re 

L Oft  II 
RUN 

PRINT  ALL  ON  <1=YES)?1 

SITE  PREP:  SITE  IifiTfK  10=  I NT » 5=EXT)?5 

F'RGM  CONST  CHANGE  OPTION<0=N0>?0 

5.  1 

YEAR ■ =NC> : 1931  ? 


1931/03-'  13  13:37 

NBSlfi. 09  LOADER  <Dl-FO<  T2-F0:  X.25 


* <111-4:-  T2-4 


ETMS  SERIAL  A/t/AJ  REf{ 

RC  VISIOat  # OF  SrSTEM 


fp/Ui  tanis  teiou) 


B2 : 0 . 35 

B3: 

0.98 

B5:  0.190451 

Eg:  7 . 59224E-03 
B : 30.3315 

B9 : 

13. 0092 

B0 : 30.8314 

Cl:  4 . 36079E+ 1 3 

C 2 : 

1 

C4 : 153 

C5:  21.51 

C 6 : 

136.235 

C7:  0.23 

C8:  0.  1 
C : 1930.1 

C9 : 

0.2 

C0 : 0.1524 

Dir  0.1 

D2: 

1 . 5 

I'3:  0.6 

D4 : 1931 

Ii  5: 

8 . 0256929 

Ii  8 : 0.75 

D9 : 0.13 

Ii  0: 

6 . 0 i 68837 

D : IS 

El:  7.3 

E2 : 

7.5 

E6 : 3. 37 32 3 E -03 

E7 : -4 . 94796E-0 3 
E : 2 

ES: 

0 . 69698 3 

E9:  0.696933 

Fl:  10000 

F2: 

10000 

F3:  1500 

F 4 : 1500 

F0: 

0.01 

F : 7.3 

G4 : 5 . 97740E-03 
G : 96931.6 

G5 : 

7. 45196E-04 

G6 : 2.O4549E-03 

Hi:  0.6278384 

H5 : 

1 

H9:  1500 

L5 : 2.10242 

L6 : 

2.17 

L7:  7.7533 

L8 : 1.03303 

L9: 

0.01  3 

L : 5 

M5:  4.779 

M6: 

0 . 973 

M7:  1.957 

MS:  3.924 
M : 316.227 

M 9 : 

7.949 

MO : 6. 1 

Hi:  6 
N = 1 

N6 : 

2 

N7 : 500 
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04: 


1 


01 : 


. 634 


Pi:  2.875 
F'9 : 4.083 

06:  0.083 


U4 : 2.56  06: 

F'4 : 5.814  F'6:  5.61 

Q?:  1.78200E-03  09:  4.7: 


F:  0 : 0.2561 
T : 386.524 
W : 5.5 


0 0 0 Id  0 0 |b  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 |d  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

ftfctO/AlD  SITE  TflP£ 

*-  taf  AtrrncP/ATc  vau.*  *e/»s  taps 

CHANGE  R U N / DATE  " SITE? 1 = Y E S < = N C > : 0 ? 1 

RUN  NUMBER < =NC>:  2 ?1  i i»  „ 

YEARC  =NC>H0W:  19.80??1980  S/MSSgft  if  »J TACC  BAK 

MONTH < =NC ) HOW : FEB?  f J 

LAY  OF  MONTH-  =NC)NOW:  8 ?5 

DAY  OF  WEEK - =NC)NDW:  FRT'TUE 

M E A S I D ( = N C • N 0 W : A N T S C - 5 4 # 3 W a h l a o « H a w o.  1 1 ? 

SITE:  W.  LONG C deg X =NC>:  158  ? 

M I N C =NC>:  O ? 

SITE: N. LAT  (deg) ( =HC>:  21 
M I H ( =NC > : 30.6  ? lf 

SUE:  HIT  (KM)  = NC):  0.1524  '' 

ANT  DI AM  'FT-  = NC  »:  18 
G T D B > = =NC  > : 24.9 9 9 9 8 9 4 8 ? 2 5 

AMBIENT  TEMP 1 F > < =NC)s  80.3  ? 

HEW  FT  TEMP <F> < =NC>:  46.2  ? 

ENTER  SUN  MOON  ALMINAC  DATA U= YES )(  =HC>:  0 ?1 


FOLLOWING  INPUTS  ARE  IN  2 PARTS:  1st  =deg>  2nd=iviin 
IF  DEC  I S S o u t. h : e n t e r d e g a n d n i n N E G A T I V E 


SUN  : 

GHA 

0 

0 G 

MT< 

deg)  < =NC):  1 

76  ? 

M I N - 

= NC 

2 8 . 

Cj 

? 18.5 

SUN  : 

GHA 

0 

12 

GMT 

Cdeg)C  =NC): 

356  ? 

M INC 

=NC 

> : 

17. 

76 

? 1 8 . 1 

N.  DEC 

0 

0 

GMT- 

deg 

) C =NC ) : - 1 5 

?- 1 6 

M I N - 

=NC 

> : 

— 2 2 • 

1 04 

?8 . 6 

N.  DEC 

0 

12 

GMT 

Cde 

g ) C =NC> : -15 

?- 1 6 

MINC 

=NC 

> : 

-0.5 

32 

’?  3 ■ 2 

N.  DEC 

@ 

24 

GMT 

Cde 

g)  C =NC) : -15 

? 

M I N C =NC ) : 50.178  ?33.8 

M 0 ON: GHA  0 0 G M T < d e g ) < = N C > : 294  ? 3 1 5 

MIN':  =NC  1 : -2018.3  ?4.7 

MOON: GHA  0 12  GMTCde?><  =NC>:  489  ?130 

MIN':  =NC ) : 35958.68  ?1.1 

N . Ii E C 0 0 G M T ( d e g > < = N C ) : -4  ? 3 

Mill-:  =NC ) : 732.7996  ?4.8 

N.  DEC  i?  12  GMT L deg X =NC):  1 ? 

MIN-  =NC > : 9.18  ?7.7 

N . DEC  C«  24  GMT(deg)<  =NC>:  0 ? 

MINC  =NC  > : 45.12  ??-25.7 


HOP  PARALLAX (i'i in) 'i  = NC):  54.18 
AGE  (DAYS) C =NC>:  20  ?19 


By'p/^ssco  if-  "SPAOi  "ex ectr£v 
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198 1/03/ 13  13:56 

HE'S  1 E . 30*  SITE  PREP  <D1-F12>  T2-F12:  X.  £5 

* IH -4  ' T£-4 


Sysrt  # 6.11 


RUN  1 


AMTS  C - 5 4 # 3 W a h i a w o.  * H o.  w a l i 
TUE:  1980  FEB  5 < 1980. 099 ) 

7300  MHz '-.#)»  7500  MHzCcOj 

0 Ij  0 0 ® 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 © 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 © 0 0 0 0 0 0 0 0 0 0 © 0 0 ® 0 0 0 0 0 0 0 0 0 


SITE:  H.  LONG  N.  LAT  ALTITUIE  GHA  TO  ARIES  0 0 GMT 

158.000  de?  21.510  de?  0.152  l n 134.315  de? 

CJ  C0  C£ 

0 fd  Id  Id  0 0 Id  0 0 0 |d  |d  0 Id  Id  Id  0 0 0 0 0 0 0 0 0 0 |d  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

FLUX  DATA 


STAR: 

Epoch 

- 

>LHb  II 


FLUX  in  F.U. 
Secular  Deca' 


qS(I/J  q7Vj»y/0  {■ 


TX'/'tVnc 


RANGE  ( GHz  > S 1 2E  < ivi  1 n 

T U/H)  rv,u>) 


GH: 


1 TO 


10 


SPEC  INDEX 

/■  • Secular  Expansion, 

yOj  i/k)/K^Q  ^T(. '/  7)/nx*> 

0 4.60  -0.792  +-  0.006 


-*1965.  O _0 . 9 Y + - 

^T(i/n yn  CrOfity/tc 

2 C V L A 2256  +- 

0.05  ’;/Yr 

^ TT  l/tV/Ao 
4 . 5 ".  0 

1 

GHz 

£ TO 

10 

1 . 60 

0.126 
-1 . 090 

+-  0.023 
+-  0.020 

•3  T A U A 

1024  + - 

4.5  V. 

0 

1 

GHz 

2 TO 

10 

4.00 

-0.263 

+-  0.020 

4 OR  I A 

420  + - 

4.5 

0 

3 

GHz 

3 TO 

10 

3.50 

0.000 

+-  0.005 

5 SUN 

500000  +- 

7,6 

0 

i 

GHz 

3 TO 

10 

32.00 

0. 900 

+-  0.005 

6 MOON 

471  +- 

9 . 9 

0 

1 

GHz 

£ TO 

10 

32.00 

1 . 963 

+-  0.000 

LOCATION  & MI  SC  DATA 


STAR  EPOCH  (DAYS  AFTER  1977.0)  SOLAR  EPOCH  (DAYS  AFTER  1977.0 

1 980 . 099  1131  1 976 . 923  -29 


STAR: 

RT. ASC 

N.  DEC. 

LINEAR  F'OLZ 

F'OLZ 

ANG 

SOLAR: 

GHA: 6 GMT 

012  GMT  N 

. DEC:©  GMT 

012  GMT 

024 

GMT  HOP 

F'RLX 

PHASE 

1 

CAS  A 

> 3 5 o .59  d e s 

>>58.69  de? 

-T(l,ll>//P 

Sl.5 

rT  (ijiiy/o 

+ - Vm.0 

.T(l,/Jj//o 
v^40 . 0 

+-C 

C.0  de? 

2 

C'u  G A 

299.67  de? 

40.66  de? 

8.0 

+ - 0.0 

146.0 

T- 

0 . 0 

de? 

3 

TAU  A 

83.28  de  ? 

22.00  de? 

7.0 

+ - 0.0 

143.0 

+ - 

0 . 0 

de  ? 

4 

OR  I A 

8 3 .53  d e ? 

-5.40  de? 

0.0 

+ - 0.0 

0.0 

+ - 

0.0 

de  ? 

5 

SUN 

176.185  d.i'i 

356.  178  - 

16.086  d.i'i 

-16.032  - 

1 5 . 3 

38  0.000 

d . n 

0 

d - v 

6 

MOON 

315.047  d . i-i 

130.008 

3.048  d.i'i 

1 . 077 

0.000  0.325 

d . i vi 

19 

day 
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RIJH  1 


o"  * 

UBS  1 B . 30*  SITE  PREP 
* <Bl-4>  T2-4 


198 1/03-"  13 

< IH -FI  2 T2-F12: 


13=57  ^ 


X / 


Sysw  # 6.11 

P ^ 

AN  .'T  SC-54  #3  Wohiowo. ) Howoi  i 
TUE:  1980  FEE  5 <■  1980.099)  C. 

f 7300  MHz  < # ) j 7500  MHz \ o ) ; 


TYPICAL  VALUE 

S for  G T 

MEASUREMENT  us 

in 9 CAS  A 

FREQ < MHz 

> G(dB) 

TOO 

G/TEdB/K) 

GxT  o.  ( dB-'K 

7500 

50.82 

3 8 2 . 3 8 

25.00 

27.81 

F 

Ip*  LET  <? 

T 

10 * LET(Q/tJ 

Ip, t LCT  C H 7) 

ANT  HI  AM 

ANT  ELEV 

AFER  EFF 

RAD  EFF 

ANT  HPBW 

CONVL  HPBW 

EFF  AREA 

1 8 . 0 f t 

5.0  dee 

0 . 6500 

0.98 

0.4601  dee 

6.4601  de? 

15.4  ht, 

L 

BZ 

b; 

B/aP 

Bf 

PARAMETER 


ERR  TO  G*T 


El 


FREQUENCY  ( GHz)  F 7.500  +- 

FLUX  ■ F.IJ.  = 101028  40  S(l,1J  573.9  +- 
TCo.nt  ) = 2.4  K£y-(J*r 

X i = 1 . 9 6 0 E - 0 5 K (y^i)  f/c 
Y-F ACTOR  7 J y]  . 00t  +- 

V (. dB ) = 0.027  dB  lo*i(,Ty  ' 

ATM  ABSORPTION  FACTOR  HI  0.906  +- 
o x v ? e n o t 1 n = 0.0310  dB 
i, inter  oi.  t r,  = 0.0064  dB---"?M*Mt3  6 run 
wot e r dens?  7.8  •=> ivi •••' f-i T 3 L7 


0 . O 1 
5.80 


0.10 


1 9 


FP 

S 


e.9 

ei 


+ - 0.00  E/0 

+ - 5.80  1.  S 

+-  16.23  C8*yr 
+-  5.19  ’ ri 


atn  bright  = 26.3  K BV- 
site  alt  = 0.152  Km  C& 

OMb  terns  = 80.3  F AC3)/'P 
d e w p o l iilnB  4 6 . 2 F A (.«)/' F 
K8  BIFFUS+- •0FT75*  < 1 /K.8- 1 ) Kf  0.851 

K9  REFRACtW  0.  18*0  K9-1  > pq 0 . 973 
1 st  const = 1 . 0380  L 8 
2 n d c o n s t : 0 .013 0 l ? 


K2  STAR  SHAPE  03 AS  A)cn/  pi  0. 989 
+-•-  10.8*  ( 1 -K.2  ) + 

HPBW  <>-  1.50’.  PL 


t 3 

BNDWIi  EFFECTS  FACTOR 
bandwidt h = 5. 5 W MHz 

K?  1 ■ 000 

K4 

D1FF  SYSTEM  TEMP  spF 
ANT  POINT E+-  0.0257  de? 

Kf 1.000 

K5 

> kh.000 

or  G T dot  o f it = +-  i 

0. 035dB  HI 

F6 

ANT  POLARISATION  FACT 

KL  1 • 000 

K? 

SYSTEM  RESPONSE  FACT 

*7  1.000 

instr  pwr  rest  <+-  0 

Y/CY-1 >=  162.340  YF 

. 2001; ) C9 

?ouss  curve  fit(+-  2 

. 300 ‘.  A*~ 

To. 

ADDED  NOISE  OO 

«^200.0 

TOTAL  ERROR.  quad  sun  + d iff  us  & refr 


+ ~ 

13.3  8 : 

. £B 

+ - 

13.18  ' 

. £V 

+ ~ 

0.51  : 

■i  £9 

+ - 

0.51  3 

. €9 

+ “ 

0.21  : 

y.  £L 

+ - 

0.21  ' 

'.  B2. 

+ - 

0.00  : 

'.  £3 

+ - 

0 d 0 0 ! 

. £3 

+ ~ 

0.72  1 

■:  et 

+ - 

0.72  • 

. £9- 

+ - 

y.80  : 

y.  er 

+ - 

0 . 8 0 ■ 

. ar 

+ ~ 

0.35  : 

’.  £6 

+ - 

8 . 3 5 ' 

£C 

+ “ 

^ 

■ e 7 

+ - 

J^.55  ■ 

■ £7 

+ “ 

0.60 

■£>3 

+ - 

0 . b 0 • 

• A? 

•S'  t 

' r 

+ - 

5 0 . 9 0 ' 
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0 

0 


STORES  SITES*!*  HEAS  TAPS 


STORE  S.T. N : 0=N8 , 5=EXT - 10=1  NT ( =NC  > : 
STORE  S s T . N : 8=H0  - 5=EXT>  1 0=  I NT < =NC '» : 
LIST  ALTERNATE  STARS(0=H0>?1 


?0 


1981/03/13  14:07 
NBS1E.304  SITE  PREP  <H1-F1£>  T2-F12:  7. 
* LI -4  ' T2-4 


SjSi'i  # 6.11 


RUN  1 


A N . T S C - 5 4 # 3 N o h i a w o > H a w a i l 
TUE:  1900  FEB  5 < 1980.099) 

7 3 0 0 M H z C #>>  7508  MHz < o > - 


FR 

E6< MHz 

' G d B ) 

TOO 

G/T' 

dB  K ) 

G T o < dB 

t 

7 

5 0 0 

50.  82 

382.38 

■per 

. 00 

27.81 

ANT 

LIAM 

ANT  ELEV  AF'ER 

EFF  RAD  EFF 

ANT  HP BN  C 

3NVL  HP BN 

Er 

F AREA 

1 o . 

0 f t 

5.0  deg  8.65 

0 0 0 . 9 8 

0. 4601 

de=>  0 

.4601  deg 

1 

5.4  rvT 2 

STAR 

FLUX  in  F.U. 

T ■ ant > 

K2 

Y-t act o r 

Y < dB  T 

X l ( K 1 

1 

C li  3 fi 

574  +-  5.8 

2.37  t 

0 . 989 

1 . 0062 

0.03  DE 

1 . 

9 r.  M F - l‘l  5 

2 

C'VG  A 

250  +-  8.8 

1.04  1 

0. 998 

1 . 0027 

0.01  DE 

8 . 

6O5E-06 

3 

TAU  A 

603  + - 8.8 

2.49  t 

0 . 992 

1 . 0O65 

0.03  DE 

2i , 

062E-O5 

4 

OF  I A 

420  +-  5.0 

1.74  ! 

0 . 9 9 3 

1 . 0046 

O.02  DE 

i . 

4 9 E - 0 5 

F 

SUN 

3065660  +-  8.7 

8909.34  K 

0 . 650 

24. 2 9 9 9 

13.86  DE 

7 e 

3 6 SB -02 

6 

MOON 

24590  h — 9.9 

71.46  K 

0 . 658 

1 . 1869 

0.74  DE 

910E-04 

G T or 

G TA  MEASUREMENT  ERROf 

S:  ELEV= 

5 . 0 d t 9 

c 

VG  A TAU  A 

OR  I 

A SUN 

HOC 

N 

E-S 

FLUX 

8.80 

8.80 

5.00  \ 

8 . r 0 

E-F 

FREQUENCY 

0.00 

0 . 0 0 '. 

0 . 0 0 ’ . 

0. 80 

E-Y 

Y-FACTOR 

36.85  *. 

15.43 

22.08  *. 

0 . 1 0 

E-Kl 

ATM  TRANS  FACT 

5.19 

5.19  -. 

5.19  ■ 

5.19 

E-K2 

STAR  SHAPE 

0.21  ms. 

0.12  ' 

0.18 

0.17 

E-F3 

BN HMD  EFFECTS 

0.00 

0.00  ’. 

0 . 0 0 

0 . 0 0 

E-K4 

DIFF  SYST  TEMP 

1.64  •/. 

0.68  ’. 

0.93  *. 

0 . 0 0 

E-L5 

ANTENNA  POINT 

0.80 

0 . 8 0 '. 

0.80  *. 

0 . 8 0 

E-L6 

A N T F'  0 L A R!  Z 

0.35 

0 . 3 5 * . 

0.35 

0.  35 

E-F  7 

SYST  RESPONSE 

73.74  ’. 

3 0 . 9 5 

44.21  ’. 

2 . 3 1 

E-R8 

ATM  DIFFUS 

13.  1 8 

13.18  •; 

13.1 8 -. 

13.1 8 

E-F9 

ATM  REF AC 

0 . 5 2 

0 . 5 2 ’ i 

0 . 5 2 * ; 

6. 52 

0.00  ‘ 
0.64  ‘ 
5.19  • 


0.00  " 
0 . 02  ‘ 
0.86  ‘ 
0 . 35  ’ 

13.  IS.  ‘ 
0.52  ‘ 


E-To  NOISE  HUD 


0. 60 


0.68  ‘ . 


0.60  ".  0.60  ’. 


0 . 60  '. 


TOTAL  LINEAR  SUM  141.88  \ 76.62  *•;  93.09  5s  31.92 

TOTAL  QUADRATIC  SUM  84.13  38.42  ".  51.67  5;  16.82 


ELEV  GMT  PRINT  OUT- 1=YES> < =NC>:  0 °1 

EL>  A2  tor  1=CAS> 6=M00N'  =NC>:  1 ?b 
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1981/03- 13  14:08 

HE:  S'  IB.  90*  SITE  PREP  < H 1 - F 1 2 > T2-F12:  X. 

* < D 1 - 4 > T2-4 


Syin  # £.11 


RUM 


ft  N / T 8 C - 5 4 #3  W a h i o w a » H a i,. j a i i 
THE:  1980  FEB  5 < 1980. 099 > 

7 3 0 0 M Hz  < # > t 75 0 0 M H z < o > > 


# = CRS  fl 
o = MOON 


GHT'hrs) 

0 


1 


10 


1 1 
12 

13 

14 

15 

16 

17 

1 8 

19 

20 
21 


24 


ft  + = THU  ft 


OF:  I fl 


SUN 
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6.4  The  MEAS  program 


The  purpose  of  the  measurement  program  is  to  collect  and  validate  data  to  be  used  in  the  rework 
programs.  The  measurement  program  collects  two  types  of  data;  sky  profile  data,  and  star  cut  data. 
The  sky  profile  data  (sky  background  temperature  as  a function  of  elevation)  is  used  only  for  the  data 
collecting  routine.  It  is  needed  to  keep  the  data  collecting  plots  on  scale,  and  it  is  needed  to 
estimate  the  sky  temperature  for  the  preliminary  estimates  of  G/T,  etc.  The  star  cut  data  are  used  to 
compute  G/T,  antenna  half-power  beamwidth  (HPBW),  and  G/Ta. 

6.4.1  The  MEAS  CHECK 

Periodically  throughout  all  of  the  measurement  routines  contained  in  the  ETMS  program  MEAS,  a 
check  procedure  is  initiated  to  verify  that  the  proper  measurement  conditions  exist  for  a valid 
measurement,  and  to  provide  documentary  evidence  that  the  ETMS  is  operating  satisfactorily.  The  MEAS 
CHECK  contains  9 pieces  of  information  labeled  as  follows:  BRG  PWR,  BRG  PRW+a,  PWR+a/STD,  STD,  Ta#, 
MANL,  PRGM,  STD  CK,  and  FLTR. 

6. 4. 1.1  Meaning  of  Labels,  and  the  normal  Condition 

BRG  PWR  is  the  power  incident  on  the  NBS  type  IV  power  bridge  due  to  the  output  of  the  earth 
terminal  after  being  attenuated,  amplified,  and  filtered  through  the  ETMS  control  unit  with  the 
standard  attenuator  "out",  and  both  microwave  noise  add  noise  sources  "off".  For  normal  operating 
conditions,  this  power  level  is  between  0.66  mW  and  0.48  mW  if  BRG  PWR  is  greater  than  BRG  PWR+a; 
otherwise,  BRG  PWR  should  be  greater  than  0.12  mW. 

BRG  PRW+a  is  the  power  incident  on  the  NBS  type  IV  bridge  due  to  the  output  of  the  earth  terminal 
passing  through  the  ETMS  unit  under  the  same  conditions  as  for  BRG  PRW,  except  that  one,  or  both,  of 
the  microwave  noise  add  sources  are  commanded  ON.  If  PRW+a/STD  = 1,  then  the  signal  has  been 
attenuated  by  the  standard  attenuator.  Which  noise  add  sources  are  commanded  ON  is  indicated  under 
Ta#.  If  Ta#  = 1,  then  only  noise  add  #1  is  commanded  ON.  If  Ta#  = 2,  then  only  noise  add  #2  is 
commanded  ON.  If  Ta#  = 0,  then  both  noise  add  #1  and  noise  add  #2  are  commanded  ON.  For  normal 
operating  conditions,  the  BRG  PWR+a  power  level  is  between  0.66  mW  and  0.48  mW  if  BRG  PWR+a  is  greater 
than  BRG  PWR;  otherwise,  BRG  PWR+a  should  be  greater  than  0.24  mW. 

STD  is  the  assumed  absolute  attenuation  of  the  standard  attenuator  (i.e.,  STD  = 4 implies  a 6.02 
dB  standard  attenuator). 

MANL  is  the  attenuation  of  the  manual  input  attenuator  in  the  "ETMS  control  unit."  The  value  of 
the  manual  attenuator  is  entered  via  the  calculator  keyboard.  There  is  no  computer  readout  of  the 
input  attenuation  value,  so  the  operator  must  be  careful  to  record  any  change.  This  is  done  via  the 
special  Key  15.  Normally,  the  MANL  attenuator  is  adjusted  so  that  the  program  attenuator  is  away  from 
its  extreme  attenuation  limits  (viz.,  0 dB  and  15  dB). 

PRGM  is  the  attenuation  of  the  program  attenuator  in  the  "ETMS  Control  Unit."  This  value  is  set 
by  the  calculator  to  keep  the  power  to  the  type  IV  bridge  in  the  most  accurate  measurement  range. 

STD  CK  is  the  measured  attenuation  minus  the  assumed  attenuation  of  the  standard  attenuator.  On 
the  average,  the  absolute  magnitude  of  STD  CK  is  normally  less  than  0.02  dB,  but  because  noise  signals 
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are  used  in  the  test,  it  will  sometimes  be  as  great  as  0.05  dB. 


FLTR  is  a number  which  indicates  which  filter  is  being  used  within  the  "ETMS  Control  Unit."  The 
nominal  identification  of  the  filters  is  as  follows: 


Number 

Center  Frequency 

Nominal  Bandwi 

1 

30  MHz 

2.5  MHz 

2 

70 

1 

3 

70 

2.5 

4 

70 

5.5 

6. 4. 1.2  Adjusting  STD  CK 

It  is  important  that  the  assumed  magnitude  of  the  standard  attenuator  (A3)  is  close  to  the  true 
value,  because  the  standard  attenuator  is  inserted  each  time  the  noise  add  is  turned  on,  in  order  to 
keep  the  type  IV  power  bridge  in  its  most  accurate  range.  Thus  to  have  an  accurate  knowledge  of  the 
earth  terminal  signal  plus  noise  add  power,  the  assumed  attenuation  of  the  standard  attenuator  must  be 
accurate. 

The  difference  between  the  assumed  attenuation  and  the  actual  measured  attenuations  is  printed 
under  the  heading  STD  CK  in  the  MEAS  CHECK  routine.  If  for  any  reason  the  STD  CK  is  greater  than  0.02 
dB,  the  measurement  process  stops  and  the  error  message,  "STD  CK  NOT  NORMAL  (1=ADJUST) ,"  is  printed 
out.  This  may  have  been  caused  by  a large  noise  spike,  which  is  to  be  expected  from  time  to  time.  In 
this  case,  striking  the  space  bar  then  the  execute  key  will  allow  the  measurement  to  continue.  If,  on 
the  other  hand,  the  assumed  attenuation  is  different  than  the  actual  attenuation  (e.g.,  because  one  of 
the  two  relays  that  switch  the  standard  attenuator  becomes  resistive,  or  because  the  wrong  N matrix 
data  was  loaded  into  the  calculator),  there  is  a provision  in  the  standard  check  routine  to  adjust  the 
value  of  A3.  When  the  computer  stops  with  the  display  "STD  NOT  NORMAL  (1  = ADJ T ) ( =NC):?",  returning 
1 provides  an  opportunity  to  adjust  the  value  for  the  STD.  If  the  attenuation  of  the  standard  is 
known  in  decibels,  say  AdB,  then  A3  = ioAdB/l°.  The  nominal  values  for  A3  for  the  four  ETMS  systems 
are: 


for  S/N  = 3 

4 

5 

6 


STD  = 3.9502 
4.2306 
4.0935 
3.839 


STD  CK  is  the  measured  value  minus  the  assumed  value  of  the  standard  attenuation  expressed  in 
decibels;  so,  if  the  STD  CK  is  averaging,  say  0.1  dB,  then  you  would  increase  STD  by  2.3%  (i.e.,  if 
originally  STD  = 4.000,  then  the  new  STD  = 4.092). 
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6. 4. 1.3  "NOT  NORMAL"  Display 

If,  during  the  MEAS  CHECK  one  of  the  measurement  conditions  is  not  normal , then  the  computer  will 
stop  with  the  display  "NOT  NORMAL  (1  = ADJT)(  = NC)  :0?"  or  "STD  NOT  NORMAL  (1  = ADJT) ( =NC):?". 
Specifically,  one  of  the  following  conditions  is  not  met. 

(1)  STD  CK  < abs(0.05  dB) 

(2)  PRGM  between  2 dB  and  10  dB 

(3)  0.24  mW  < BRG  PWR  < 0.66  mW 

(4)  0.24  mW  < BRG  PWR+a  < 0.66  mW 

If  condition  (1)  is  not  met,  the  "STD  NOT  NORMAL"  display  will  occur.  If  the  operator  chooses  to 
continue  with  the  conditions  "as  is,"  then  he  presses  the  space  bar,  then  "EXECUTE".  On  the  other 
hand,  if  he  wishes  to  correct  the  operating  condition,  he  enters  "1" ."EXECUTE".  The  operator  will 
then  be  given  an  opportunity  to  (a)  change  the  value  of  STD,  (b)  change  the  value  of  the  ETMS  input 
attenuator,  (c)  change  the  noise  add  source,  and/or  (d)  change  whether  the  standard  attenuator  is 
inserted  when  the  noise  add  source  is  turned  on.  In  making  the  changes,  remember  that  BRG  PWR+a 
includes  the  effect  of  whether  the  standard  attenuator  is  inserted  when  the  noise  add  sources  are 
turned  on.  So,  if  BRG  PWR+a  is  too  large  when  BRG  PWR  is  too  small,  then  the  standard  attenuator 
needs  to  be  inserted  when  the  noise  add  source  is  turned  on;  and  if  that  is  not  sufficient,  then  use 
only  the  weakest  noise  source  by  itself  for  the  noise  add  signal.  If  this  still  does  not  satisfy, 
then  the  only  thing  left  is  to  insert  an  attenuator  on  the  output  of  the  noise  source.  Similarly, 
each  of  the  other  conditions  have  to  be  dealt  with  depending  on  the  nature  of  the  problem.  For 
example. 


6.4.2  Establishing  the  Antenna  Biases 

The  G/T  measurement  routine  does  not  operate  well  unless  the  star  center  prediction  is  well 
within  the  half-power  beamwidth  (HPBW)  of  the  antenna.  This  normally  requires  that  the  computer- 
predicted  azimuth  and  elevation  angles  be  biased  in  order  to  obtain  the  needed  earth  terminal  azimuth, 
elevation  command  angles.  The  need  for  the  bias  corrections  is  due  to  an  unknown  mix  of  situations 
such  as  antenna  boresight  errors,  elevation  dependent  feed  sag,  atmospheric  refraction  errors,  errors 
in  the  site  coordinates,  and  error  in  time.  The  first  step  is  to  find  the  star. 

6. 4. 2.1  Finding  the  Star 

With  the  ETMS  connected  to  a down  converter  output  of  the  earth  terminal,  adjust  the  ETMS  input 
attenuator  with  the  meter  bypass  in  the  BYPASS  position  until  the  output  meter  is  midscale  (at  0)  on 
the  meter  x 1 scale.  Then  switch  the  meter  scale  to  x 0.1  and  with  the  meter  offset  knob,  recenter 
the  meter  reading.  If  any  of  the  four  pointing  biases  (hour  angle,  declination  angle,  azimuth,  or 
elevation)  are  currently  in  the  program,  it  is  usually  best  to  zero  them  using  the  special  function 


Condition  Not  Met 


1 

2 

3,4 


Changes  to  Consider 
a 


b 

c,d 
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Key  5.  Next,  press  special  function  Key  4 and  start  the  star  fix  routine  (normally  for  star  #1  = Ca? 
A).  This  routine  displays  the  predicted  azimuth  and  elevation  angle  for  the  star,  and  this  predictior 
is  updated  about  every  10  seconds.  Command  the  antennas  to  the  predicted  pointing  angles  adjusting 
the  meter  offset  or  sensitivity  as  needed;  search  in  the  vicinity  of  the  predicted  azimuth  anc 
elevation  for  a pointing  angle  which  gives  the  maximum  star  output.  Compare  the  antenna  pointing 
position  readout  with  the  predicted  pointing.  Stop  the  star  fix  routines  by  pressing  the  "STOP"  ke> 
twice;  insert  the  appropriate  AZ  and  EL  biases  via  Key  5.  Again,  restart  the  Star  Fix  routine  (key  4) 
and  verify  that  the  antenna  pointing  position  indicators  agree  with  the  biased  pointing  predictior 
displayed  by  the  ETMS. 

6. 4. 2. 2 What  to  Do  if  You  Cannot  Find  the  Star 

If,  for  some  reason,  the  star  is  not  found  using  the  above  routine,  try  the  following  check  list. 

(1)  If  the  antenna  elevation  angle  is  below  15  degrees,  and  there  are  unusual  atmospheric 

conditions,  the  refractive  corrections  may  be  incorrect,  or  there  may  be  an  obstruction  in  or  near  the 
line  of  sight.  In  either  case,  switch  to  a star  with  a larger  elevation  angle.  (2)  Check  that  the 
earth  terminal  down  converter  output  is  connected  to  the  ETMS  control  unit  input.  To  double  check, 
turn  on  and  off  noise  add  #1  (via  keyboard,  FNX82  and  FNX83,  or  via  program  switches,  82  and  83)  and 
observe  change  in  the  ETMS  output  meter  or  on  a spectrum  analyzer  monitoring  the  earth  terminal.  (3) 
Compare  the  predicted  Cas  A azimuth  and  elevation  angles  with  those  generated  before  the  trip  with  the 
SITE  PREP  Program.  If  an  obvious  difference  exists,  the  wrong  site  data  may  have  been  entered,  or 

perhaps  there  is  a computer  load  problem.  If  it  looks  like  a computer  load  problem,  turn  the 

calculator  off  and  start  up  all  over  again.  (4)  Check  that  the  time  is  correct.  The  clock  should 

read  Greenwich  Mean  Time,  not  local  time.  The  date  from  which  the  star  positions  are  calculated  is 
the  date  in  the  page  heading,  not  the  one  set  in  the  clock  unit,  and  it  should  be  the  proper  day  in 
Greenwich,  England.  To  double  check  that  the  correct  date  is  in  the  calculator,  gain  keyboard  control 
of  the  calculator  (denoted  by  the  lazy  T in  the  display),  enter  "C6,"  press  "EXECUTE."  In  the  display 
will  be  the  Greenwich  hour  angle  (GHA)  to  Aries  at  0 GMT  expressed  in  decimal  degrees.  Using  "The 
Nautical  Almanac"  or  "The  Air  Almanac"  of  the  proper  year,  look  up  the  GHA  to  Aries  at  0 hr  GMT.  In 

the  Almanacs  this  will  be  expressed  in  degrees  and  decimal  minutes.  Divide  the  decimal  minutes  listed 

in  the  Almanac  by  60  and  add  to  the  listed  degrees  to  obtain  GHA  to  Aries  at  0 GMT  expressed  in 

decimal  degrees.  This  should  agree  with  the  computer  constant  C6;  if  not,  double  check  the  value 

obtained  in  the  Almanac.  If  they  still  disagree,  the  wrong  site  data  were  loaded.  If  only  the  day  is 
incorrect,  you  can  correct  the  computer  value  of  C6  ("RECALL", "=",  enter  new  value,  "EXECUTE",  or  "C6 

= . ",  "EXECUTE")  and  look  for  the  star  again.  (5)  Check  that  the  site  coordinates  are  correct. 

In  a manner  similar  to  (4)  above,  check  the  computer  constants  C4  (West  Longitude  of  the  site  in 
decimal  degrees),  and  C5  (North  Latitude  of  the  site  in  decimal  degrees).  If  the  site  is  EAST  of  the 
zero  Longitude,  C4  should  be  a negative  number.  If  the  site  is  SOUTH  of  the  Equator,  C5  should  be 
negative. 

6.4.3  Sky  Profile 

The  sky  profile  option  is  selected  at  TRAP  via  option  1SKY.  A sky  profile  is  a series  of  sky 
temperature  measurements  made  at  various  elevations  along  the  path  that  Cas  A will  take.  The 
measurement  results  are  then  least  squares  fit  to  a constant  plus  a cosecant  of  the  elevation  term. 
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The  purpose  of  the  sky  profile  is  threefold.  First,  it  yields  information  concerning  atmospheric 
loss.  Secondly,  the  curve  fit  parameters  are  used  to  correct  for  the  change  in  sky  background 
temperature  as  the  various  star  cuts  are  taken  to  determine  G/T.  Lastly,  the  sky  profile  results  are 
used  to  identify  when  any  unusual  changes  in  atmospheric  conditions  occur. 

6.4.4  The  G/T  Measurement 

Before  the  G/T  measurement  routine  can  succeed,  the  ETMS  manual  input  attenuator  needs  to  be 
properly  set,  the  noise  add  sources  functioning  appropriately,  and  the  antenna  bias  corrections 
established  as  discussed  in  the  preceding  paragraphs.  Once  these  are  done,  the  G/T  measurement 
routine  is  initiated  by  selecting  the  "2G/T"  option  at  TRAP.  One  measurement  set  consists  of  6 
cuts.  For  the  first  cut,  the  antenna  is  pointed  and  braked  at  the  cold  sky  two  degrees  offset  from 
the  path  of  Cas  A.  A "cut"  consists  of  approximately  40  sequential  power  measurements  taken  at  six- 
second  intervals.  The  purpose  of  the  sky  cut  is  to  compare  the  current  sky  temperature  with  the 
earlier  sky  profile  results.  This  helps  identify  atmospheric  changes  and/or  interference  situations. 

For  the  remaining  5 cuts,  the  antenna  is  pointed  to  a computed  coordinate  position  so  that  the 
radio  star  Cas  A drifts  through  the  antenna  beam  in  equidistant  spaced  cuts.  After  each  cut,  a 
parabolic  curve  is  fit  to  those  measurement  points  where  the  radio  star  is  predicted  to  lie  between 
the  half  power  beam  width  ( HP BW ) points  of  the  antenna  pattern.  Cas  A will  remain  between  the  HPBW 
points  for  11  successive  measurements  (66  seconds  of  time).  Those  points  that  occur  during  these  66 
seconds  of  time  (and  are  at  frequency  #1)  are  curve  fit  to  a parabola,  and  the  discrepancy  between  the 
time  the  star  was  predicted  to  be  centered  in  the  antenna  pattern  and  the  time  the  star  was  actually 
centered  is  used  to  calculate  and  print  out  the  equivalent  antenna  hour  angle  offset.  If  it  is 

desired  that  a new  hour  angle  bias  be  entered  for  improving  the  predicted  time  of  the  star  maximum. 
Key  5 is  pressed  and  the  new  hour  angle  bias  entered.  The  hour  angle  bias  (or  declination  angle  bias 
can  be  entered  at  anytime  without  invalidating  the  measurement  data.  Remember,  however,  AZIMUTH  or 
ELEVATION  biases  can  ONLY  be  entered  BETWEEN  MEASUREMENT  SETS;  otherwise,  the  antenna  declination 
offsets  between  cuts  are  incorrectly  calculated  and  the  two-dimensional  curve  fit  to  the  data  is 
incorrect,  which  invalidates  the  entire  measurement  set. 
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After  the  last  cut  in  a measurement  set,  the  calculator  fits  a parabola  to  the  maximum  of  the 
prior  stored  cuts  versus  declination  offset  from  the  unbiased  predicted  star  center.  The  difference 
between  the  unbiased  predicted  declination  angle  for  a star  maximum  and  the  actual  declination  angle 
for  the  star  maximum  is  printed  out.  If  it  is  desired  that  a new  declination  angle  bias  be  entered 
for  improving  the  biased  prediction  of  the  declination  angle  for  star  maximum.  Key  5 is  pressed  and 
the  new  declination  angle  bias  entered.  The  declination  angle  bias  (or  hour  angle  bias)  can  be 
entered  at  anytime  without  invalidating  the  measurement  set  (but  DO  NOT  CHANGE  AN  AZIMUTH  OR  ELEVATION 
BIAS  during  a measurement  set).  It  is  best  to  wait  until  the  measurement  set  is  stored  on  magnetic 
tape  before  changing  the  declination  bias.  If  the  bias  is  changed  before  the  measurement  set  is 
stored,  the  most  graceful  way  to  continue  is  to  press  Key  10  (shift  plus  fO)  to  store  the  data. 

When  all  the  data  for  a particular  run  have  been  taken.  Key  19  (Last  Meas)  is  used  to  store  the 
summary  information  on  the  summary  tape  and  the  computer  program  on  the  MEAS  tape.  When  all  the 
information  has  been  stored,  it  is  good  practice  to  list  out  the  computer  program. 

6.4.5  Data  Storage  on  the  MEAS  Tape,  and  the  Summary  Tape 

Each  set  of  measurement  data  is  recorded  twice,  once  on  the  MEAS  cassette  tape  (which  contains 
the  MEAS  program)  and,  secondly,  on  the  summary  tape.  The  MEAS  tape  has  the  measurement  program,  the 
site  data,  the  star  data,  the  measurement  conditions,  and  all  of  the  measurement  results  for  one 
particular  run  all  recorded  on  it.  The  MEAS  tape  is  intended  to  be  an  archives  tape.  In  contrast, 
the  summary  tape  is  intended  to  be  a working  tape.  The  rework  program  uses  the  summary  tape  files  and 
writes  back  into  them  the  latest  results.  Thus,  the  summary  tape  is  more  vulnerable  to  the  accidental 
erasure  of  a data  file. 

The  particular  file  on  the  MEAS  tape  on  which  data  are  stored  depends  on  the  set  number  (computer 
variable  is  N7).  In  turn,  N7  is  determined  by  the  measurement  number  (computer  variable  is  N)  which 
is  controlled  by  the  ETMS  operator.  It  is  possible  to  overwrite  a "MEAS"  data  file  by  intentionally 
or  otherwise  reusing  a series  of  N values. 

The  summary  data  tape  files  are  filled  sequentially.  Every  store  operation  is  stored  in  the  next 
available  file. 

The  reason  for  storing  the  data  twice  is  to  avoid  losing  data  when  cassette  recording  errors  are 
encountered  (ERROR  59).  This  occurs  because  of  a flaw  in  the  tape,  or  an  unclean  recording  head,  or 
other  causes.  If  the  problem  occurs  during  the  read  operation,  the  file  can  sometimes  be  recovered  by 
cleaning  the  read  head  and  then  rereading  the  file,  but  usually  that  data  file  is  lost. 

6.4.6  Changing  the  MEAS  or  Summary  Data  Tapes 

When  the  MEAS  tape  or  summary  tape  data  files  are  full,  the  operator  is  notified  and  the  program 
automatically  performs  the  "Last  Measurement"  routine  of  storing  summary  data  onto  the  summary  tape, 
and  the  program  onto  the  MEAS  tape.  To  continue  on  with  the  measurement  process  without  reloading  the 
MEAS  program,  a new  MEAS  and/or  summary  tape  need  to  be  inserted  and  the  appropriate  changes  made  to 
the  computer  variables  so  the  data  store  locations  will  be  appropriate  for  the  new  tape.  Whenever 
insertion  of  a new  MEAS  or  summary  tape  is  desired,  the  "5  NEW  TAPE"  option  is  selected  at  TRAP  (e.g., 
Key  0)  and  the  appropriate  entries  made  in  response  to  the  computer-generated  questions. 
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6.4.7  The  Use  of  the  Special  Function  Keys 


In  the  MEAS  program,  the  special  function  keys  found  in  the  upper  left-hand  corner  of  the 

calculator  are  important  to  the  normal  operation  of  the  measurement.  The  ten  special  function  keys 
are  labeled  fO,  f 1 , ...,  f9.  Twenty  special  functions  are  available  by  using  the  above  keys  in 

conjunction  with  the  shift  key.  A special  function  can  be  activated  anytime  the  calculator  is  stopped 
(by  pressing  the  stop  key)  or  waiting  for  an  input. 

For  convenience,  the  routine  activated  by  pressing  fO  is  denoted  as  Key  0,  and  so  forth  through 
Key  9.  Key  10  is  the  routine  activated  by  pressing  the  shift  key  and  the  special  function  key  fO 
simultaneously,  and  so  forth  through  Key  19.  The  routines  associated  with  the  special  function  keys 
for  the  MEAS  program  are  listed  in  table  4 and  are  described  in  the  following  paragraphs. 

Key  0 sets  the  MEAS  program  to  "the  restart  alternative  position,"  TRAP,  namely  the  position  in 
the  program  that  chooses  the  major  program  option.  The  options  in  the  MEAS  program  are  "ORSTRT," 

which  is  a master  restart  that  is  used  to  initialize  certain  program  constants.  These  constants  need 
only  be  initialized  once,  and  this  is  done  automatically  when  the  program  in  loaded.  "ORSTRT"  is  used 
primarily  for  the  case  when  the  calculator  gets  hung  up  waiting  for  a return  flag  from  the  digital 
voltmeter.  This  is  a calculator  quirk  that  sometimes  occurs  on  the  first  command  to  read  the 

voltmeter.  The  operator  is  warned  of  this  problem  on  the  printout,  so  no  special  concern  for  this 
option  is  necessary.  The  "1SKY"  option  initiates  the  sky  profile  measurement  routine,  "2G/T" 
initiates  the  G/T  measurement  routine,  "3EIRP"  initiates  the  EIRP,  C/kT  measurement  routine,  and  "4 
NEW  TAPE"  changes  the  calculator  constants  to  store  data  to  the  proper  files  on  a new  tape. 
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TABLE  4.  The  Special  Function  Keys  for  the  MEAS  program. 


KEY  PURPOSE 


0 

Restart: 

1SKY,  2G/T,  3EIRP,  4 NEW  TAPE,  ORSTRT 

1 

Restart: 

at  measurement  number  N 

2 

Change : 

STANDARD  ATTENUATOR  value 

3 

Refit  5 cuts  (used  after  one  cut  was  retaken) 

4 

STAR  FIX  (to  correct  for  antenna  boresight  error 

5 

Change : 

BIAS:  HR.  ANG,  DECL,  AZ,  ELEV 

6 

Change: 

input  ATTN  (dB),  FILTER  # 

7 

Change : 

Ta  (added  noise)  value 

8 

Change: 

T(syst)/Ta 

9 

Change : 

INSERT  5dB  WHEN  T ( ADD) ? 

10 

STORE: 

measurement  set 

11 

STORE : 

star  and  site  parameters 

12 

STORE: 

summary  data  matrix  M 

13 

unused 

14 

LIST: 

current  data  matrix  D 

15 

Change: 

FREQUENCY  and  calculate  new  star  flux 

16 

Change : 

# MEAS  PTS , # PTS  IN  FIT  ZONE 

17 

Change: 

G/Ta 

18 

Change : 

NOISE  ADD  SOURCES  used  in  measurement 

19 

LAST  MEASUREMENT  routine 

Key  1 is  used  to  restart  a "cut"  in  the  G/T  measurement  routine.  This  key  typically  is  used 
after  the  operator  realizes  the  antenna  pointing  is  incorrect  and  needs  to  start  the  measurement  over 
again. 

Key  2 is  used  to  change  the  assumed  value  for  the  attenuation  of  the  standard  attenuator  (A3). 

Key  3 is  used  to  refit  a parabola  to  the  results  of  a set  of  five  cuts.  This  key  is  used  when, 
for  some  reason,  one  of  the  measurement  cuts  is  replaced  and  there  is  no  need  to  remeasure  the 
remaining  cuts. 

Key  4 initiates  the  star  fix  routine,  and  Key  5 is  used  to  enter  new  antenna  biases  and  is 
discussed  in  paragraph  9.2. 

Key  6 is  used  to  enter  a change  in  the  ETMS  input  attenuator  value  or  to  change  the  filter  being 

used. 


Key  7 is  used  to  change  the  estimated  magnitude  of  the  noise  add  reference,  Ta,  which  changes  the 
scale  factor  for  the  data  collecting  graphs. 

Key  8 is  used  to  change  the  estimated  value  for  the  system  temperature  relative  to  the  noise  add 
reference  (T/Ta);  both  the  zenith  value  and  the  coefficient  of  the  cosecant  of  the  elevation  angle  can 
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be  adjusted.  T/Ta  determines  the  zero  values  for  the  data  collecting  graph.  Because  T/Ta  is 
calculated  automatically  from  the  sky  profile  measurement,  and  because  the  zenith  value  of  T/Ta  is 
recalculated  after  each  cold  sky  cut,  there  is  not  much  reason  to  reenter  a new  value.  However,  when 
the  measurement  frequency  is  changed,  T/Ta  can  be  somewhat  in  error,  and,  sometimes,  it  is  convenient 
to  manually  correct  the  value. 

Key  9 is  used  to  change  whether  the  5 dB  standard  attenuator  is  or  is  not  inserted  into  the 
circuit  each  time  the  noise  add  source  is  turned  on. 

Key  10  is  used  to  store  a partial  measurement  set.  For  example,  a single  additional  cold  sky  cut 
may  be  taken  for  a record  concerning  the  atmospheric  conditions. 

Key  11  is  used  to  store  the  star  and  site  parameters,  and  the  current  measurement  program  onto 
the  MEAS  tape. 

Key  12  stores  the  summary  data  matrix  M,  and  the  program  constants  matrix  N onto  the  summary  data 
tape.  Key  13  is  not  used. 

Key  14  is  used  to  list  out  the  data  contained  in  the  current  data  matrix  D. 

Key  15  is  used  to  enter  a new  measurement  frequency  and  corrects  the  frequency  dependent 
parameters  such  as  star  flux. 

Key  16  is  used  to  change  the  number  of  points  used  in  the  parabolic  fit  routine.  For  Cas  A,  11 
points  are  normally  used.  Because  the  fitting  routine  works  best  when  the  star  is  between  the  HPBW 
points,  fewer  points  are  used  for  the  other  stars. 

Key  17  is  used  primarily  as  an  alternate  way  to  calculate  the  magnitude  of  the  noise  add,  Ta, 
which,  in  turn,  adjusts  the  scale  factor  of  the  data  collecting  graphs.  Because  the  magnitude  of 
G/Ta  is  calculated  after  one  measurement  set  is  finished,  this  value  of  G/Ta  can  be  entered  via  Key  17 
and  used  to  calculate  Ta  by  using  a value  for  the  antenna  gain  based  on  the  antenna  diameter  and  the 
operating  frequency. 

Key  18  is  used  to  change  whether  noise  diode  #1,  diode  #2,  or  both  diodes  are  used  for  the  noise 
add  si gnal . 

Key  19  is  used  when  the  last  measurement  data  have  been  taken  for  a particular  run.  This  key 
starts  a routine  which  stores  the  summary  data  and  the  current  programs  onto  the  MEAS  and  summary  data 
tapes. 
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6.4.8  MEAS  ANNOTATED  PRINTOUT 


* CO/ODEcr  f)OlS£  AW 

AMS*  n n 

+ t»***T  PAILY  MM 

LOAD 


TO  Z>/*£CTOOAL  CPofidF* 
CoMc  v©  fo  04, . im/J0£ 

TAH 


RUN 

PRINT  HLL  ON  <1=YES)?1 

MEftS : SI TE  DATA  < 1 0= I NT , 5=EXT  > ?5 

PRGM  CONST  CHANGE  0PTI0N(e=N0 >?0 


°*J  9*TU7  TO  m/lMA 


IF  HARDWARE  HANGS  UP 


(1) 
< 2 > 
<3) 


STOP 
KEY 
0 <R 


+ST0P 

0 

STRT) 


IJM 

ET 

ET 

ADD 


TAP 

ANT 

ANT 

24h 


E EXT. 
DELA'i 
DELA'i 
rs  TO 


i AS  I NT  < =NC  > : 1 
Ri  BRK  FT S: NOW  2 
C»  BRK  RTS : NOW  18 


RbaMDE^  TO  SET  BREAK  Ro/a/T  $£T 

oa)  Etas  cotrtKoL  oajiT  to  set  a Ro/hT/*£ 

o i T/*£  t>  £i-Ay 

SEC-C 1=REREAD) ( =NC>:  0 ?1 

SEC< 1=REREAD> ( =NC>:  0 


CLOCK  READ ( 1 =YES > < =NC):  0 


~ W USED  J 


FLTR: 1=2030. 2=1070. 3=2070. 4=5070 < =NC>: 
INPUT  ATTNCdBX  =NC):  65  ?14  A 


r'A-  2®  _ 

•*  it  tttrtu 
f+v*.  iai^crs.vj 


NOISE  ADD: 0=#1&#2> 1=#1 . 2=#2» 3=N0<  =NC>:  0 
INSERT  5DB  WHEN  T <ADIO ( =NC>:  1 ? 


TEMP -'HU HD : 0=AUTO.  1 =MANL  < =NC  ) : 0 ? 
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[2G/T, 3EIRP* 4HEW  TAPE  - 0RSTRT < =HC):  1 


3 0fex*vc>A/  n r©  #*r4//v  s,  r&Ar  j 

h,  Cii  eg  »c!fyrr'>  *«  ~ r ....  _ . / 

: MAT  D=Q)  SOURCE:  CAS  At.  =NC>:  1 YtV-*-  seleZT, Z7T7: 


: MAT  D=0 > SOURCE: MOON  < =NC>:  6 
NEW  FREQS < =HC>:  0 ?1 


iMiecrj 

'>**'»*  ^T~fM€  -^gj- 


vtLtcr/^Zr^ 


# of  FREQ 

SC 

=NC 

) : 3 '9 

FREQ'.:  MHz) 

# 

1 

C =NC) : 

FREQ < MHz) 

# 

j) 

< =HC ) : 

FREQ C MHz) 

# 

3 

C =HC ) : 

^ 13  J 

YOUR  NAME 

=NC) 

x 13):  DR 

3uo 

’500 

’500 


/J  s^+ccr  HtSPM*0  ***  t>re<*t*ts  *J4#E 


SKY: GMT (HRS) j S 


NBS1C. 47  ME AS 


f*f/>  ?R /MOOT  THe  ^ 
tL'VAT,0»  Ai/U£  ' "**> 

T>HS  CA.7-  . 5 ^7- 

aatA*^A  .J'"*  f **“■ 

*****  -u-**.  ’tJtlL 

Ay  y*>s  c«T  r/H£ 


1981/11/06  15:50 

D1-F14  T3-F12:  : .25 


bv  DAVE  WAIT 


Svsf'i  #6.11 


TEMP 
79.6  F 


A N / T S C - 5 4 #3  W a h i a w a < H a w a i l 
THE:  1980  FEB  5 < 1980.090) 

7300  MHz  < # ) j 7500  MHz  Co)  j 7500  MH: 


HEW  FT. 
61.6  F 


PEL  HIJMD 
54.3 


WATER  HENS 
13.5  sn/f'VT'3 


CLOUD  COVER 
0 


RUN  1 


WIND 

0 1'iph 


BRG  PWR 
0 . 5 94 6m W 


pZoAHAi 

t — o. ; 


BRG 

0. 


P R W + o. 
S941 


[roam  a L.  u »frw«« 

tff  m..J  e 


"ft. — 

it  ****u 


PWR+a/STD' 

1 


lSTD  CF  NOT 


STD  t 
ST  lit 


, 96 
5.842 


normalE  i =ad  jt  : 

dB  11  = N C ) : I 
dB ) C =NC ) : • 


- =NC 
, 945 

r,  9 '9 


FLTF' : 1 =2030 > 2=  1 078 » 3=2070  s 4=5070 C 
INPUT  ATTNCdB) ( =NC>:  14  ? 


STD  To.#  MANL  F'RGM 

9450  0 1 4dB  ldB 


STD  Cf  FLTF 

0.11 7dB  4 


NOISE  ADD: 0=#1L#2- 1=#1 - 2=#2< 3=N0<  =NC>:  0 
INSERT  5DB  WHEN  T C ADD) C =NC):  1 ? 


B R!  i j F'  W R 
0. 5940m W 


BRG  PRW+a  FWR+o./STD?  STD 
0 . 3942i'iW  1 3.8390 


To#  MANL 
0 1 4 d B 


PRGM 
1 dB 


STD  CK  FLTR 

0. 003dB  4 
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MOON 


SET  # 0 


flZ  EL 


CSC  L 


GMT 


T/Ta 


92 . 550 1 2488 


98. 47608896 


105. 6996707 


115. 8637194 


1 


1 6 3 . 0 2 8 ( 0 1 3 


1 0 . 36883095 


23.79665885 


37. 04758425 


49.7494109 


61 . 02622019 


68.39144384 


5 

556047786 

8.5  # 

0.648611858 

Cj 

556047786 

, 8.5  o 

0. 647921464 

5 

556047786 

8 . 5 x 

0. 650825072 

2.478364248 

9 B 5 

# 

0 . 6496738 1 5 

2 . 47836424 8 

9 , 5 

0 

0. 647083212 

2.478364248 

9 , 5 

x 

0.651855148 

1 . 659811414 

10.5 

# 

0.651 142723 

1 . 65981  1414 

10.5 

0 

0. 646008458 

1 . 6598 11414 

10.  5 

0.647884838 

1.31 02281 99 

11.5 

# 

0 . 658374939 

1 . 310228199 

11.5 

o 

0 . 6500 1 6057 

1 . 310228199 

11.5 

0.648807714 

1 . 143064229 

12.5 

# 

0 . 647750493 

1 . 143064229 

12.5 

0 

0. 647593714 

1 . 143064229 

12.5 

X 

0 . 64720562  3 

1 . 075590913 

13.  5 

# 

0 . 643886906 

1 . 075590913 

13.5 

0 

0. 646196215 

1 . 075590913 

13.5 

0. 649729489 

T/Ta  = 0.6480  + 0.00024*CSC  L # 

t 


ALTgtMATC;  place  o? 


1 SKY > 2G  T > 3E I RP ? 4NEW  TAPE  > 0RSTRT  ( =h 
HE  CL  BIAS':;  DEO  ( =NC):  0 ? 0.032 

AZ  BIAS (LEG) < =HC>:  0 ?.01 

02 


(AFT**  Itr 


"HR  A N G E:  I A 1 D E L 


U05 


EL  BIAS (LEG) < =NC: 


0 


MEAS  # 
CSC  COEF 

•*  KEY 
(/MU 

MEAS  #t 


m s: 


KEY  S';  ( /MS£tr  B/ASSS  T*at 
well  PtlttHMtb  •*> 

ft  iot  Ai/a/J 

BSULTJ  ot  p&svioas  SK.y  PKof/m 


=NC>:  1 %|T/Ta  0 90 ( =NC£:  0.2  7.6480 

( =NC>!  8.00000E-03  7.00024 

7:  t to  Pen  T~a  r_  Pro* 

Utw.j 


=NC ) : 1 


1 1 SKY  >12 G - ■ Tl  3E I RP  > 4HEW  TAPE  > 0RSTRT  ( =\ 


• MAT  D=0) 

SOURCE 

: CAS  AC 

= NU  > : 

1 ?6 

s MAT  D=0> 

SOURCE 

: MOON  C 

= NC ) : 

6 ? 

NEW  FREQS 

C =HC): 

0 ?3 

# of  FREQ 

S(  =NC ) • 

2 ?3 

FREQ (MHz) 

# 1 

( =NC): 

7300 

r. 

FREQ (MHz) 

# 2 

C =NC ) : 

7500 

0 

FREQ (MHz) 

# 3 

( =HC): 

0 

?7700 

eic- 
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*•  KEYS : /fJ  CASE  KsASSJ  MAMB  8EEA)  O/JTEReo  rrt  tr  ,/**/‘* 

dBFOAB  £>0/A>&  STAB  Fix 

HR  ANG  BIHSCDEG)  C =NC>:  0 ? c 

DELL  BIAS  (DECK  =NC>:  0 ?0 

HZ  B IRS  CHECK  =NC):  0.01  ?0 

EL  BI ASCBEGX  =NC):-0.02  ?0 


ts 


,t&YV:  STAR  fdc 


MERE 

fiZ= 

#C  =NC) : 
112.66 

i ’ 

EL  = 

Mt.THR#C 
46. 39 

=NC> : 6 r' 

BIAS! HRs  DLL,  HZ) EL 

0. 000 

0. 000 

0. 000 

0 . 000 

MOON 

HZ= 

112.69 

EL= 

46.42 

BIAS: HR) DLL) HZ- EL 

0. 000 

0. 000 

0.000 

0.000 

MOON 

HZ= 

112.70 

EL= 

46.44 

BIAS: HR) DLL) HZ) EL 

0.00  0 

0.000 

0.000 

0 . 000 

MOON 

HZ  = 

112.72 

EL= 

46. 46 

BIAS: HR) DLL- HZ- EL 

0.000 

0.000 

G.  000 

0 . 0 0 0 

MOON 

fiZ  = 

112.74 

EL  = 

46.48 

BIAS: HR) DLL) HZ) EL 

0.000 

0. 000 

0.000 

0. 000 

MOON 

HZ  = 

112.76 

EL  = 

46.50 

BIAS: HR -DLL) AZ ) EL 

0.000 

0 . 000 

0. 000 

0. 000 

MOON 

HZ= 

«/tuJ 

112.78 

nz.V 

EL  = 

46.52 

Hb.SO 

11 

h 

m 

r 

0.000  0.000 

St**  Qhoo/u) 

0 . 0 0 0 0 . 0 0 0 M 0 0 N 

MAX/Aiurt  o uTPirr 

&0.01 


- o.02~ 


«*  KEYS’*  to 

HR  ANG  BIASCDEUX" 
DECL  BIHSCDEG) C =N 
HZ  BIHSCDEG) C =HC) 
EL  BIHSCDEG) C =NC> 


F/oTEK.  El 

=HC) : O ?0 
C):  y ?0 
: 0 ? . 0 1 

: 0 S'- . 02 


A/o  TBD  OA1 

ET  MS  COA/TKOL  OtliT 
B/AS^^evrror  ebi/El  hbteK  (.*• 


oTPirr  '”1 
.1 


• key+  : sr*R  p/x:  to  ooaify  *mj 


ME  AS  #■:  =NC>  : 

1 

TTSTAR# 

=NC) : 6 ? 

AZ=  113.17 

EL= 

46.92 

BIAS: HR. DLL) AZ) EL 

0. 000 

0. 000 

0.01  0 

-0. 020 

MOON 

AZ=  113.19 

EL= 

46.95 

BIAS: HR) DLL) AZ) EL 

0.000 

0 . 000 

0.010 

-0.020 

MOON 

AZ=  113.21 

EL  = 

46.97 

BIAS: HR- DLL) AZ) EL 

0. 000 

6. 000 

0.01  0 

-0. 020 

MOON 

AZ=  113.22 

EL  = 

46.99 

BIAS: HR, DLL) AZ) EL 

0. 000 

0.000 

0.01  0 

-0. 020 

MOON 

AZ=  113.24 

EL  = 

47.01 

BIAS: HR, DLL, AZ, EL 

0. 000 

0. 000 

0 .010 

-0.020 

MOON 

AZ=  113.26 

EL= 

47.03 

BIAS:  HR! , DLL  , AZ , EL 

0. 000 

0 . 000 

0.01  O 

-0.020 

MOON 

AZ=  113.28 

EL  = 

47.05 

BIAS: HR, DLC, AZ<  EL 

0.000 

0.  000 

0.01  0 

-0. 020 

MOON 

HZ  = 
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1 S K Y jfc G . TK  3 E I R F'  < 4 H E W TAPE  > 0RSTRT  ( *NC> 
f:  Hri  I V-lS  SOURCE:  MOON  ( =NC):  f ? 
KILN  F F'LU  f -I l " : i?  T~  ^ 

YOUR  NAME ( =NC>xl3>:  HAVE  WAIT? 

# ME  AS  PTSC  =NC>:  -30  ? 

# F'TS  IN  FIT  ZONE < =NC !■ : 11  ? 


ME AS  #C  =NC > : 1 


SKY  OFFSET < DEG ? < =NC>:  2 ? 

CLOUDS <0  TO  9=RAIH> ( =NC):  0 


— 'VAEftiMQ1.'.  Al*»r  AFT  El  THIS  QKssrtuf  IS 
tuts  »m  e Oj  the  pat  a matrix  x>  ts  ser 

ro  (l*  Y*0  WA/VT  TV  RETAKE^ 

J At>  cUrU  tAt  THE  *-A$T  SET  D O 

Not  aamer  thu  Queet/oa/' 


Co  VfAtcrur  to  nert 

TMEJI  KEY  3 CitP/r. 
i Store  kh»atsJ 


WIND  < MPH > < =NC ') : 0 ?5 


HBS1C.47  ME AS 


1981/11/06  16:07 

< D 1 - F 1 4 > T3-F12:  X.25 


by  DAVE  WAIT 


S>£r:  # 6.11 


-3- 


RUN  1 


A N / T S C - 5 4 # 3 W o. h i o. wa>H o. w a i i 
TUE:  1980  FEE  5 < 1980.090? 

7300  MHz < # ) » 7500  MHz<o)»  7500  MHz<x>» 

TEMP  DEW  PT.  REL  HUMD  WATER  DENS  CLOUD  COVER  WIND 

77.2  F 61.5  F 58.6  l;  13.5  gM/ntS  3 5 ciPh 


ME  AS  HF'BW 

6sec  0.5104 


0.6480  + 0.00024*CSC 
8 0 + 0 . 0 0 0 2 4 * C S C 
0. 00024*CSC 


OFFSET 

2. 000d€  ? 

L # 

L o 
L x 


CUT 


r GO  : 1=HEW  AZ-EL 

fir  I ME  tiAKtO 

^.ELAPSE 
3 2 sec 


=NC  > : 


- if- SET  A A tTBilM  Am-  'tHu  9*1 

I TIME  Of  AVTEAIAIR  A%,ti  CALC.  TUc  AmTrmm/A  srd 

PEAK#  PTS  EX  HR  BIAS  DCL  BIAS  FfZ  BJ 


12 


0. 0 0 0 0 d € ? 


0 . 0 0 0 0 d €'  ? 


BIAS 
O. 0000de  ? 


RUN  SET  N 

1 1 1 


*Ran*u" 

EL  BIAS 
0. 0000de ? 


BRG  F'WR  BF:G  F'RW+c.  F'WR+a/STD?  STD 
0 . 598 0oi W 0 . 3954iviW  1 3.8390 


Ta#  MANL 
0 14dB 


F'RGM  STD  CK  FLTR 
ldB  -0. 009dB  4 
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:ERO  LEVEL  100'.  LEVEL 


0. 648 
0.648 
0 . 64 


3*  To 
3*  To. 
3*  To. 


1.62 

1.62 

1.62 


60*Ta 
6 0 * T o. 
6 0 * T o 


X i < K ) 

1 . 63E-02 
1.63E-02 
1 . 63E-02 


K Y':  IIE:  T ( M 0 0 > SUN)  T To. 

0 . 683  4 . 020  1 97 . 5 24590  129.7  200 . 0# 

0.683  4.020  197.5  24590  129.7  200.00 

0.683  4.02O  197.5  24590  129.7  200.0; 


-10 
N3-  sec  ! . . 
1 42 


4 2 


6 14 

-7  20 


-11  44 
12  50 
-13  56 
-14  2 


10 


pw*  AD/A/6S 
ft  AY  yt>T  Pu>  r 
ue  c*A*/ 
F//tsr  ssr 


PWR#  1 
0. 5981 
0. 5982 
0. 5981 
0. 5 9 ,8 
0.5984 
0 . 5989 
0.5977 
0 . 5976 
0. 5978 
0.5982 
0.5985 
0 . 5979 
0 . 5905 
0. 5975 


PWR  #2 
0.3948 
0 . 3963 
0. 3961 
0.3953 
0.3951 
0.3951 
0. 3955 
0. 3947 
0. 3954 
0. 3943 
0.3955 
0 . 3957 
0 . 3905 
0. 3949 


P Pa 


* 5 1,'.-’ 
64  64 
6 4 6 5 
6481 
6 4 9 8 
6 5 0 6 
0. 6474 
0. 6494 
0.64  8 0 
0.6516 
0. 

0. 


0 


6490 
6472 
6 4 8 6 
6 4 8 9 


Sysci  # 6.11 


-4- 


RUN  1 


fi  N T S C - 5 4 #3  W a h l o w a » H a.  w a.  i l 
THE:  1980  FEE  5 < 1980.090) 

7300  MHz<#) j 7500  MHz(o) j 7500  MHz<x)> 

TEMP  HEW  PT.  REL  HUMD  WATER  DENS  CLOUD  COVER  WIND 

76.0  F 61.2  F 60.3  '4  13.4  Writ 3 3 5 nPh 
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AZIMUTH 
L 247  " 


GO  : 1 =HEW  AZ- 


HF'BW 

0.5104 


TIME (HRS; 
16.7341? 


OFFSET 
- -0. 255dee 


CUT 


RUM 

1 


SET 

1 


= HC 


T/Ta  = 0.1148  + 0.00024*CSC 
T/To.  = 0.1  149  + 0. 00024*CSC 
T/To.  = 0.1  147  + 0.00024*CSC 


L # 
L o 
L x 


ELAPSE 

(pe  n 

RTS  EX 

HR  BIAS 

DCL  BIAS 

AZ  BIAS 

EL  BIAS 

1 8 s •=•  o 

Vl  / 

2 

0 . 0 0 0 0 d 6 r> 

0 . 0000 de? 

0 . 00 00 deg 

0 . 0000de ? 

ZERO  LEVEL  1005A 
0.1151*To  0 . 5 a 9 5 * T a. 

0 . 1 1 53*Ta  8 . 5 lw 1 *T a 

0.1151*Ta  0.50'Si 


To. 

500. 04 
500 . 00 
500 . 0 >:; 


F’WR#  1 

PWR#2 

P/ 

■Pa 

0. 

2154 

0. 

5458 

0 . 

1149 

0. 

2151 

0. 

5448 

0. 

1149 

0. 

2156 

0. 

5452 

0 . 

1151 

0. 

2152 

0. 

5463 

0 . 

1 146 

0. 

2153 

0. 

5431 

0. 

1154 

0. 

2149 

0. 

5464 

0 . 

1144 

0. 

2148 

0 . 

5449 

0. 

1147 

0. 

2204 

0. 

5475 

0 . 

1174 

0. 

2 2 3 9 

0 . 

5462 

0 . 

1198 

0. 

2327 

0. 

5487 

0 . 

1245 

0. 

0. 

5434 

0. 

1254 

0. 

2699 

0. 

,5521 

0. 

1463 

0. 

2955 

0. 

5 5 8 9 

0 . 

1600 

0. 

! 3519 

0. 

5715 

0. 

,1914 

0. 

, 3795 

8. 

,5781 

0 . 

, 2066 

0. 

, 4663 

0. 

, 6031 

0 . 

, 2525 

0. 

, 4776 

0 . 

, 6092 

0 . 

,2569 

0. 

, 4931 

0. 

, 6080 

0. 

, 268 1 

0. 

, 4937 

0, 

,6102 

0 . 

, 2708 

0. 

, 4899 

0. 

, 6082 

0, 

. 2658 

0, 

, 4649 

0, 

. 6032 

0 , 

. 25 1 5 

0, 

, 4440 

0, 

, 5951 

0, 

! 2416 

0, 

, 3703 

8, 

. 5770 

0 , 

. 2011 

0, 

, 3454 

0, 

. 5692 

0, 

. 1881 

0, 

. 3077 

0 

. 5633 

0 ■ 

. 1663 

0 , 

• 2362 

0 

. 5572 

0 , 

. 1548 

0 i 

, 2699 

0 

. 5564 

0 

. 1458 

0 . 4640 
0.4714 
0.4713 


Fir  AnHirvoe 
*k  unset  A3 


A/4S  «tucn  mouij)  HMF 
T0t  MKUcrtO  fCAA. 
tom  not  t nr  rn  Mak 

BECL  BIAS  if  1st  cut  too  deep 


0. 1335 
0. 1254 
0. 1232 


MOON 


•Ratio  -t*  7' 
(r**.  hi  fRtqj) 
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MEfiS  # ■ =NC 


MBS  1C. 47  MEfiS 


1981 '"'1 1/06  16:45 

1 1 — F 1 4 > T3-F 12:  X.25 


by  DfiVE  MfilT 


ELAPSE 

1 6 £ € C 


PEAK#  PTS  EX  HR  BIAS 


11 


0. 0000dc? 


HCL  BIAS 
0. 0000d€  9 


AZ  BIAS 
0. 0 0 8 0 d € 9 


EL  BIAS 
0. 0 0 0 0 d t 9 


apjwtj  caa m Scale  nt  -FKtt) 


ZERO  LEVEL 

100V.  LEVEL 

X i < K > 

K 

Y(UB) 

T (MOO) 

S(  JN> 

0. 1 151*Ta 

0 . 5094+Ta 

1 . 63E-03 

0.680 

6.458 

197.  1 

24590 

0. 1 153*Ta 

0 . 5 1 00*T o. 

1 . 6 3 E - 0 3 

0 . 680 

6.458 

197.  1 

24590 

0. 1 151*Ta 

0. 5091*Ta 

1.63E-03 

8.680 

6.458 

197.  1 

24590 

0 

20 

40 

60 

80 

10E 

(•;< 

M3. ' 

i i i 

1 . . 1 

1 1 

1 

1 1 

FiWR#l 

T >*,113 

57.6  1500.1 

57.6  / 5U0.  L... 
57^  500.0; 


IE 


PUR#2 


P/Pa 


1 

54# 

00 

1 

! 

TH[  Fir  Levn  or  thu  ctfH 

0.217 

5 

0.5508 

0.5514 

0.1154 
0.  1150 

3 

bX 

! 

h ap£  oeev  loot. 

3. 2229 

0.5521 

0. 1178 

4 

12 

# 

! 

IF  HA*  US sg  ' 

3.  246 

2' 

0. 5600 

0. 1296 

5 

18 

o 

! 

T'~ 

0. 278 

0.5651 

0. 1478 

b 

24 

X 

i 

3 .311 

7 

0.5740 

0.1651 

9 

30 

36 

42 

# 

! 

o ! 

x ! 
! 

Cur  kevtL/i oo) 

3. 3514 
0. 4372 
0. 5445 

0.5800 
0 . 6008 
0.6313 

0. 1877 
0.2342 
0 . 2;-:h8 

10 

48 

T*  ‘ ■*»«•»  V 

0 . 686 

i 

0. 6677 

0.3654 

1 1 

54 

i 

. o 

0.861 

2‘ 

0 . 7092 

0. 4618 

-12 

0 - 

— 

4__  \ 

— 

1 . 097 

3 

(5)7722 

0 . 5 b 5 2 

-13 

6 

r i 

\ 

1 . 328 

i 

ftil, . o2!6  1 

0.7157 

-14 

12 

1 ! 

1 . 356 

I; 

0 0.8337 

0. 7307 

-15 

18 

i 

\ 

1 . 3840 

*•  0.8381 

0. 7492 

-16 

24 

* 

1 . 409 

5 

g 0.8479 

0.7578 

17 

3 0 

8 ' 

\ 

1 . 358 

1; 

9 0. 8342 

0.7312 

-18 

36 

1 

\ 

1 . 362 

3 

*8.8333 

0 . 7 3 6 3 

-19 

42 

1 

\ 

1 . 0644 

[p.  7552 

0 . 5778 

-20 

48 

i ! 

c> 

0. 848 

i 

i? . 6 9 9 9 

0. 4605 

-21 

54 

t ! 

X 

0.675 

8 

0. 6566 

0. 3662 

”22 

0 

— — — — 

i « -* 

— — — — — — 

A-  - 

0. 532 

1 

0.61 96 

0.2884 

23 

6 

o ! 

\ 

0. 425 

1 

0.5939 

0 . 2295 

24 

12 

x ! 

\ 

0. 469 

3 

0.6052 

0.2534 

25 

18 

# 

! 

Ci.338 

3 

0.5730 

0.1821 

2 b 

24 

0 

! 

0.  347 

q 

0.5739 

0. 1878 

27 

36 

x 

! 

0\2794 

0. 5573 

0. 1505 

2 8 

36 

* 

I 

0 . 3 1 0 

5 

0. 5656 

0. 1672 

29 

42 

0 

i 

0.  2154 

3 

0.5500 

0. 1372 

30 

48k 

! 

0. 2140 

0.5409 

0. 1152 

10616 

1 

Ft*  lit  net 

#F  I T 

ANT  HP BN 

T < MOON  >/Ta  HR  AHG  BIAS' fit) 

F'EAl  # 

LEVEL: 

MOON 

4 

0.306  de9 

0.7530+-  2 

.36':  0.0536  d&9 

14 

. 85 

161. 93. 
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by  DAVE  WAIT 


ME  AS  #<  =NC):  6 


MBS  1C. 47  ME AS 


1981. -'11/06  17:00 

< D 1 - F 1 4 > T3-F12:  X.25 


S,  = #6.11 


-16- 


RUN  1 


AN  TSC-54  #3  Wo.  hi  a wo.  > Ho.wo.  i i 
TIJE:  1980  FEB  5 < 1980.090) 

7300  MHz  < # ) j 7500  MHz  Co) > 7500  MHz<x)> 


TEMP 
77.3  F 


DEW  FT.  REL  HUMD  WATER  DENS  CLOUD  COVER  WIND 

61.6  F 58.6  13.6  gn/nT3  3 0 wph 


AZIMUTH  ELEV 

MEAS 

HF'BW 

TIME (HRS) 

OFFSET  CUT 

RUN  SET  N 

251.15  40.66 

6i€C 

0.5104 

1 7 • 0 4 3 S'  9 0 

-2- 

5dee  2 

1 1 6 

T/To 

= 0.1148  + 

0 . 0 0 0 2 4 * C S C L 

# 

T/To. 

= 0.1149  + 

0 , 0 0 0 2 4 C S l.  L 

0 

T/To. 

= 0. 1147  + 

0.00024*CSC  L 

X 

GO  : 1 =NEW  AZ<EL  ( 

=NC):  O 

r< 

ELAPSE  PEAK# 

RTS  EX 

HR  BIAS 

BCL  BIAS 

AZ  BIAS 

EL  BIAS 

18i.ec  17 

2 

0 . 00  0 0 d € ? 

0. 0 0 0 0 d •=  9 

0 . 0 0 0 0 d i 9 

0. 0000 de 9 

ZERO  LEVEL 

1007.  LEVEL 

X i ( K ) 

K 

YCDB) 

T (MOO) 

SUN) 

T 

To. 

0.  1 152*To. 

0 . 509 1 *To. 

1 . 63E-03 

0.679 

6. 456 

197.0 

24590 

57.  6 

500. 0# 

0.  1 153*To. 

0 . 5 0 9 7 * T o. 

1.63E-03 

0 . 6 7 9 

6. 456 

197.0 

24590 

57.6 

500. 00 

0.  1 151*To. 

0 . 5089*T o. 

1.63E-03 

0.679 

6.456 

197.8 

24590 

57 . 5 

500. 0x 

M2,'-* 

0 20 

40 

60 

80 

100  <X) 

PUP  #3 

P/P  n 

1 

10# 

! 

0. 1921 

0.4822 

0.1161 

2 

1 So 

! 

0. 1939 

0.4882 

0.  1156 

3 

24  x 

! 

0. 1980 

0.4913 

0.11 76 

4 

30  # 

! 

0. 1997 

0. 4856 

0.  1202 

Cj 

36  o 

! 

0 . 2054 

0.4885 

0. 1232 

6 

42  x 

i 

0.2156 

0.4928 

0. 1289 

7 

48  # 

i 

0. 2270 

0. 4979 

0. 1350 

8 

54  o 

I 

0.2414 

0.5018 

0. 1436 

9 

0 X 

! 

0.2538 

8. 5054 

0. 1508 

10 

6 # 

! 

0.2780 

0.5105 

0 . 1 656 

1 1 

12  o 

! 

O. 3102 

0.5218 

0. 1835 

-12 

18  x 

! 

W. 3492 

0.5321 

0.2066 

-13 

24  # 

i 

0. 2451 

0. 4961 

0. 1480 

-14 

30  o 

! 

0. 391 1 

0.5327 

O. 2368 

-15 

36 

! 

0. 4294 

0.5463 

O . 2577 

-16 

42 

# 

! 

d. 4639 

0.5575 

0. 2769 

17 

48 

> | 

0. 4948 

0.5682 

0.2935 

-18 

54 

x ! 

0.5097 

0. 5693 

0. 3042 

-19 

0 

# i 

0. 4995 

0.5710 

0.2952 

-20 

6 

0 

! 

0. 4773 

0 . 5667 

0.2812 

-21 

12 

X 

! 

0.4412 

0.5520 

0 . 2632 

“22 

18  # 

! 

0. 4068 

0.5428 

0.2429 

23 

24  o 

! 

0. 3816 

0.5398 

0 . 2260 

24 

30  x 

! 

0. 3338 

0.5277 

0. 1 976 

25 

36  # 

i 

0. 3027 

0.5048 

0. 1 854 
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decreo.se  DECL  SIRS 


0. 2580  O.5035  0.1543 

0.2563  0.5516  0.1380 

0.2254  0.5395  0.1224 

0.2120  0.5382  0.1146 


RNG  BIAS' fit)  PERK#  LEVEL:  MOON 

-0.0375  dee  18.50  47.63. 


if  1st  cut  too  deep 


1981/11/06  17:04 

MBS  1C. 47  MEfiS  <B1-F14>  T3-F12:  X.25 


by  HAVE  WRIT 


# 6.11 


TEMP 


-17- 


R N TSC-54  # 3 U o. h i o. w o.  > H o. w o.  i i 
TUE:  1980  FEB  5 C 1980.090) 

7300  MHz ( # ) ) 7500  MHz  to) > 7500  MHz< 


HEW  FT. 
61.6  F 


PEL  HU MB 


WRTEF  BENS 
13.6  gri/fit 3 


CLOUD  COVER 


RUN  1 


WIND 

0 f'iph 


g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g 

BEST  FIT  FOR  THE  5 CUTS  using  G=  50.3  dB 


#F  I T RNT  HPB'W  T (MOON  )/To.  /^DEC  1_  OFFSET 

0.450  dee  0.6170+-  17. 803;  004  dte. 


T/To  ELEV  RUN  SET 

O . 1151 K 43. 0dee  1 1 

TO  C.HA»iC 


To.  via  G/Ta 
185.32  K 


G T I t>EcL  B/ASj  HEF  WAIT-1!  HUF 

37.53  dB /K  j 1.12  K/ivt2  / 1.21  K/>iT2 

“*1/4  AtFTBA  DATA  H 
l^jTOAfO. 

g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g g 1 0 Id  g g Id  g id  Id  g g g g g g g g g g g g g g g g g If  g g g g g g g g g g I “ g g g If  g 

100*<IifiTfi-FIT  )/<MRX  did  MOON  )/To.) 


CUT 


4.03; 


-1 

-16.93; 


0 

27.  13. 


1 

■19.33; 


TO  REPLACE  R CUT: dl > KEY  1 then  <2)  KEY  3 


REMARK S : ? S I M ULRTEB  M 0 0 N C IJ T 

STORE:  I NT  FILE  14  EXT  FILE  9 EXT  SET#  1 
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J'lHT  Ii: 


b8257 

4807 

30 

16534 

2000 

0 

0 

— 2 2 '?  8 6 

-22973 

-22987 

-23021 

-22984 

-20943 

-20969 

-18809 

-18762 

- 1 6266 

-16182 

-16250 

-22055 

-22989 

-23018 

-22967 

-22979 

-22972 

l-  -22980 

-23019 

-23025 

— 2.'  8 0 8 6 

-22984 

^ -23051 

-23005 

-23008 

-23066 

-23040 

° -23005 

-2-3059 

0 

0 

0 

V 0 

0 
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0 

0 

V 0 
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0 

0 

0 

& 0 

0 

0 

0 

0 

0 

0 

0 
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0 
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0 

0 

0 

0 

0 

0 

0 

0 

0 , 

r *-2994  s 

7300*-*—/—  FKEQ 

6755 

4438 

30 

16734 

-255 

-14302 

1700 

-23026 

-23023 

-23005 

-23050 

— 2||9  7 7 

-23065 

-23040 

-22808 

S -22604 

-22225 

-22152 

-20611 
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O -17923 

-17159 

-15153 

-14978 

-14553 

* -14454 
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-15595 

-17429 

• -18096 

-19330 

-20043 

-20701 

-21522 

1 -22149 

-22325 
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0 
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0 
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0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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0 

0 

0 
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0 

0 

0 

24 

7500*1 

s(Al  - I90)f  100 
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-96445. 

S -22760X 

1300*— fBU  » 

-22344 

^ rim  f moo 

S.  30  w,(  Si 6796 

-22980  io{ CKAi  l*»f  -22928*“  t*  *J*i- 

-22213  -22051 

pea.  omer  *■  >**> 

-23016  4. 

-21516 

0 -20059  \ 

- 1 8 6 8 7 

-15763 

-14491 

-12824 

•*.-10538  \ 

-10326 

-10000 

-9807 

-9680 

* -9838  \ 

-10250 

-10983 

-11663 

-13124 

-15437  1 

- 1 7 6 3 6 

-18542 

-19301 

-2O058 

-21434  1 

- -22361  - 

0 

0 

0 

0 106  «( w V/lifi/u)*  to* 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

6909 

0 

0 

4295 

0 

0 

30 

0 

. 1148  f 

(*«•«*<  )*'* 

16857 

0 . 

7 5 00***,  FHCQ 

0 

, -4227 

1700 

-22979 

-23017 

-22776 

£-21818 

-20504 

-19401 

-18116 

-15904 

0-13770 

-11457 

-9116 

-6747 

-4735 

-4528 

-4278 

-4164 

-4521 

-4452 

^-6875 

-9145 

-11435 

-13824 

-16108 

Jf-15117 

-18419 

-18110 

-20324 

-19274 

% -2 1 247 
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0 

0 0 
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0 

0 

0 0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

: 

0 
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0 

0 

0 

0 

0 

0 

0 

0 

0 J 

1149* 

0 

0 

57 


■ti  COT 


6983 

4222 

30 

1 69 1 8 

128 

-9670 

1 800 

-23064 

“22999 

“22607 

-22173 

-21726 

-21117 

-20073 

s -1916-2 

-18148 

-15592 

-13055 

-11313 

O -1 1209 

-10251 

-9666 

-9629 

-9881 

-10247 

-11239 

- 1 1686 

-12858 

-15132  ■ 

? -18343 

-21173 

-20298 

-21693 

-21907 

f -23031 

-23026 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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0 

0 

0 
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0 

0 

0 

0 

0 

0 

0 FI" « 

0 

1147  aS 

® fItIHSE  * 

7115 

4066 

30 

17044 

255 

-13346 

1700 

-22922 

”22959 

-22794 

- -22570 

“ 2 2 3 2 5 

-21875 

-21409 

-20797 

b -20806 

-19370 

-18343 

-17161 

-20491 

3-15796 

-14949 

-14228 

-13646 

- 1 3289 

-13589 

-14075 

-14739 

-15541 

■ -16262 

? -17603 

-18239 

-19128 

-20075 

-21194 

* -22388 

-23050 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 
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0 

0 

0 

0 

0 
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0 

0 

0 
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0 

0 

0 yT/H£  MTWttW 
nm 

( sec) 

F EC  It*  S£T  l 


( : MAT  I'=B3S0URCEi  MOON  < =HC>:  6 yr~'^aAi  «-»*"**/  MAT  2> 

NEW  FREQS C =NC)S  0 ? 1/ 

YCHJR  NH ME < =NCjx13>:  DAVE  WRIT? 

# HERS  PTS<  =NC) : 30  ? 

# RTS  IN  FIT  ZONEC  =NC>:  11  ? 

MERS  #(  =NC  > : 7 --<?  - 

SKY  OFFSET  (DECK  =NC>:  2 ? 

CLOUDS (O  TO  9=F:RINK  =NC):  6 ?2 

WIND  CMF'HX  =NC>:  0 ?5 


* t-rno 
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6.5  The  SPLIT  program  and  annotated  printout 


The  purpose  of  the  SPLIT  AND  CHECKSET  programs  is  to  prepare  the  data  for  the  fitting  and 
reworking  programs.  These  programs  require  that  all  of  the  data  be  in  single  frequency  sets.  If  the 
data  collected  were  only  for  a single  frequency,  then  the  SPLIT  program  is  not  required. 

The  SPLIT  program  contains  three  different  routines.  The  first  routine  provides  a way  to  list 
the  contents  in  the  various  data  files  contained  on  the  various  daily  MEAS  tapes  or  SUMMARY  tapes.  It 
lists  information  with  regard  to  whether  the  data  have  been  processed  by  the  FIT  routine,  whether  the 
data  are  in  a single  frequency  file,  the  run/set  number  of  the  file,  and  the  frequency  and  antenna 
elevation  conditions  under  which  the  data  were  taken. 

The  second  routine  in  the  SPLIT  program  takes  a data  set  containing  data  for  three  (or  two)  data 
sets  and  splits  it  into  three  (two)  data  sets  containing  information  only  about  one  frequency  each. 

The  last  routine  in  the  SPLIT  program  is  a program  to  load  data  files  from  the  various  daily  MEAS 
tapes  and/or  SUMMARY  tapes  and  store  them  onto  a different  tape  (e.g.,  a SUMMARY  tape  containing  all 
the  data  for  one  frequency). 
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THE  ANNOTATED  PRINTOUT  OF  SPLIT  PROGRAM 


X-  //V55/ST  S/*/T  TfiPE 

LOAD 

RUN 

PROG  EXT <5)  * INK  10 >?  16 


FILE S ( 1 > L I ST  C 2 > S F L I T . < 3 > M 0 V E "fl 
LOAD  t run  I NT  T AF'E  = 0 < EXT  = 1 ?0 
LOAD  FILES:  START#!  STOF'#j  STEF'?9j  25<  1 


NBS1F.39  DATA  SPLIT  <D1-F27> 

NBS1C.42  MEAS  <D1-F14>  T3-F12:  X.25  by  WAIT > JOHN  W 


Sysr'i  # 6.00 


-1- 


RIJN  103 


A N T S L - 5 4 #3  W a h i a u a > H a u a w l i 
FRI:  19S0  FEB  8 

0 MHz  #> 


■H4  = number  of  INTER AT  IONS  in  NONLINSFIT 


LD 

RN  ST 

STAR 

FREQ 

# 

EL 

DATE 

REMARKS 

FILE 

Of  6 

9 

3 

103.01 

MOON 

7500 

1 

FRI FEES 

1980 

YSTRDY  BIAS  GUD&CLR  SK 

YS  OUTS  ID 

10 

0 

103.82 

MOON 

7500 

1 

57 

FRI FEES 

1980 

DAVES  GUNN  A CHNG  F’RGM 

AT  6:42  A 

11 

0 

103.03 

MOON 

7500 

1 

Cj  ■- 

FRI FEES 

1980 

SUNRISE. 

UT  O 

12 

0 

103.04 

MOON 

7500 

1 

46 

FRI FEES 

1980 

WCD  fk  JPW  CONCUR  ON  MS 

SG  COROT N 

13 

0 

103.05 

MOON 

7500 

1 

39 

FRI FEES 

1980 

SUN  GETTING  HOTTER  ON 

PAR AMPS 

14 

0 

103. 06. 

MOON 

7508 

1 

32 

FRI FEES 

1980 

SUN  ON  PAR AMPS 

15 

0 

103.07 

MOON 

7500 

1 

24 

FRI FEES 

1980 

GOOD 

16 

0 

103.08 

MOON 

7500 

1 

17 

FRI FEES 

1980 

SIGHTSEEING  TIME ! M ! ! 

17 

0 

103.09 

MOON 

7500 

1 

9 

FRI FEES 

1980 

VISITORS 

18 

0 

2.01 

MOON 

7700 

1 

61 

THUFEB7 

1980 

BAD  PTS  CUTS  1*2- DRIZZ 

EL  OUTS  ID 

19 

0 

2.02 

MOON 

7700 

1 

59 

THUFEB7 

1980 

BAD  PT  CUT- 1< POOR  DNCV 

F:  7700 

20 

0 

2.03 

MOON 

7500 

1 

53 

THUFEB7 

1980 

H A F!  D RAIN  C U T — 2 1 Ei  A D F T 

S CUT  0 

21 

0 

2.04 

MOON 

7500 

1 

46 

THUFEB7 

1980 

HUMIDITY  VARYING 

22 

0 

2.05 

MOON 

7500 

1 

33 

THIJFEE7 

1980 

ROLLING  NOW  ! ! ! 

23 

0 

2.06 

MOON 

7500 

1 

24 

THUFEE7 

1980 

CHNGD  TA1 

24 

0 

2.07 

MOON 

7300 

1 

16 

THUFEB7 

1980 

I NTRCHNG  FREQ 

<i  5 

0 

2.08 

MOON 

7300 

1 

8 

THUFEB7 

1980 

FINISHED  MOON 

60 


! )SPL  IT ?fc  3) MOV 
) F'  E = @ ! E :k:T=T7I 


FILES:  Ci::' LIST*  (.2.: 

L 0 A D f f on  I N T T ft F' E = 

LORD  FILES: START#?  STOP#?  STEP742? 49? 
STORE  to  I NT  TAPE=Q? EXT=1?Q 
STORE: (STARTING  FILE  #>?STEF'?9?1 
FREQ (MHz)  to  be  MOVED  (0=ALL)?0  <- 


CAA) 


MOVE  OHVf  Files  OF  oajE 
SPECIFIC  filbqoehcy 


NBS1F.39  DATA  SPLIT  <H1-F27> 

NES1C.38  MEAS  CD1-F14)  T3-F12:  X. 24  by  WAKEFIELD?  WAIT 

-4- 

Sys-f'i  # 6.00  RIJN 


A N ■ T S C - 5 4 #3  W a h io.wa?  H o. w a w i i 
THU : 1980  FEB  7 

7700  MHz  #? 

7300  MHz  o? 


N4=ST ORE  File  # 


LD 

FILE 

N4 

PH- "ST 

STAR 

FREQ 

# 

EL 

DATE 

REMARKS 

42 

9 

2.01 

MOON 

7300 

2 

61 

THUFEB7  1980 

BAD  F'TS  CUTS  1&2?  DRI2ZEL  OUTS  ID 

43 

10 

2.02 

MOON 

7300 

2 

59 

THUFEB7  1980 

BAD  FT  CUT- 1> POOR  DNCVR  7700 

44 

1 1 

2.03 

MOON 

7300 

2 

Cj 

THUFEB7  1980 

HARD  RAIN  CUT-2?  BAD  F'TS  CUT  0 

45 

12 

2.04 

MOON 

7300 

2 

46 

THUFEB7  1980 

HUMIDITY  VARYING 

46 

13 

2.05 

MOON 

7300 

2 

a ;-! 

THUFEE7  1980 

ROLLING  NOW  ! 1 ! 

47 

14 

2.06 

MOON 

7300 

2 

24 

THUFEB7  1980 

CHNGD  T A 1 

48 

15 

2.07 

MOON 

7500 

2 

16 

THUFEB7  1980 

I NTRCHNG  FREQ 

49 

16 

2.03 

MOON 

7500 

2 

8 

THUFEB7  1980 

FINISHED  MOON 
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FILE' 

LORD 

LOAD 


■ : • 1 _ I S T 4 2 'r  FL  IT  ,| 
froi'i  I NT  TAPE=0,EX 
FILES: START#, STOP# 


[<3>H0VET2J 
T = 1 ? 1 
, STEF'?42, 50,  1 


UBS  1 F . 39  DATA  SPLIT  <D1-F27> 

NBS1C.42  NEAS  <D1-F14>  T3-F12:  X.25  by  WAIT,  JOHN  W 


Svsfi  # 6.90 


RUN 


A N '■  TSC-54  #3  W a h 1 a w a , Haw  a w i i 
FRI:  1980  FEB  8 

7300  MHz  #, 

7500  MHz  o, 

7300  MHz  x, 


N4=SET # in  MAT  B 


LD 

N4 

RN-'ST 

STAR 

FREQ 

# 

EL 

DATE 

REMARKS 

FILE 

N Ha 

0f(, 

42 

1 

3.01 

MOON 

7300 

3 

57 

FRI FEES 

1 9S0 

YSTRDY  BIAS  GUD&CLE  SKYS 

43 

2 

3.02 

MOON 

7300 

o 

57 

FRI FEES 

1980 

DAVES  GUNNA  CHNG  PRGM  AT  6:42  A 

44 

o' 

3.03 

MOON 

7300 

3 

52 

FRI FEES 

1980 

SUNRISE. 

45 

4 

3. 04 

MOON 

7300 

3 

46 

FRIFEBS 

1980 

WCD  i-.  JPW  CONCUR  ON  MSSG  CORCTN 

46 

5 

3.05 

MOON 

7300 

3 

39 

FRI FEES 

1980 

SUN  GETTING  HOTTER  ON  PARAMPS 

47 

6 

3.06 

MOON 

7300 

3 

FRIFEBS 

1980 

SUN  ON  PARAMPS 

48 

7 

3.07 

MOON 

730O 

3 

24 

FRIFEBS 

1980 

GOOD 

49 

8 

3.08 

MOON 

7300 

3 

17 

FRIFEBS 

1 980 

SIGHTSEEING  TIME ! ! ! ! ! 

50 

9 

3.09 

MOON 

73O0 

o 

9 

FRIFEBS 

1980 

VISITORS 
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STORE  FREQ  #??1 

STORE  to  I NT  TflPE=0,EXT=l?e 


STORE: 

(STARTING 

FILE 

#>  j STEP?35> 1 

STORE 

RUN/ SET 

STAR 

FREQ 

ELEV 

DATE 

REMARKS 

FILE 

OCj 

3.01 

MOON 

7300 

57 

FRIFEB8 

1980 

YSTRHY  BIAS  GIJDLCLR  SKYS  OUTS I 

36 

3.  02 

MOON 

7300 

57 

FRIFEB8 

1980 

DAVES  GUNN A CHNG  PRGM  AT  6:42 

37 

3.03 

MOON 

7300 

Cj  -p 

FR I FEES 

1980 

SUNRISE.  IJT  0 

38 

3.04 

MOON 

7300 

46 

FR I FEES 

1980 

WCD  & JF'W  CONCUR  ON  MSSG  CORCT 

■39 

3.05 

MOON 

7300 

39 

FRIFEB8 

1980 

SUN  GETTING  HOTTER  ON  PAR AMPS 

40 

3 . 0b 

MOON 

7300 

32 

FRIFEB8 

1980 

SUN  ON  PARAMPS 

41 

3.07 

MOON 

7300 

24 

FR I FEES 

1980 

GOOD 

42 

3.08 

MOON 

7300 

17 

FRIFEB8 

1980 

SIGHTSEEING  TIME!  ! ! ! 1 

43 

3.09 

MOON 

7300 

9 

FRIFEB8 

1980 

VISITORS 

STORE 

FREQ  #?2 

STORE 

to  I NT  TAPE=0j  EX 

T=r?0 

STORE: 

(STARTING 

FILE  # 

> , STEP'S 

9 > 1 

STORE 

RUN /SET 

STAR 

FREQ 

ELEV 

DATE 

REMARKS 

FILE 

9 

103.01 

MOON 

7500 

57 

FRIFEBS 

1980 

YSTRDY  BIAS  GUD&CLR  SKYS  OUTSI 

10 

103.02 

MOON 

7500 

cj  -y 

FR I FEES 

1980 

DAVES  GUNN A CHNG  PRGM  AT  6:42 

1 1 

103. 03 

MOON 

7500 

52 

FRIFEBS 

1980 

SUNRISE.  UT  0 

12 

103.04 

MOON 

7500 

46 

FRIFEBS 

1980 

WCD  & JF'W  CONCUR  ON  MSSG  CORCT 

13 

103.05 

MOON 

7500 

39 

FRIFEBS 

1980 

SUN  GETTING  HOTTER  ON  PARAMPS 

14 

103. 06 

MOON 

7500 

32 

FRIFEBS 

1980 

SUN  ON  PARAMPS 

15 

103.07 

MOON 

7500 

24 

FRIFEBS 

1980 

GOOD 

16 

103.08 

MOON 

7500 

17 

FRIFEBS 

1980 

SIGHTSEEING  TIME!  ! ! ! ! 

17 

103.09 

MOON 

7500 

9 

FRIFEBS 

1980 

VISITORS 
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6.6  The  CHECKSET  program  and  annotated  printout 


The  CHECKSET  program  is  used  to  replace  isolated  bad  data  points.  It  operates  only  on  a single 
frequency  data  set.  Usually,  this  program  is  not  needed.  However,  if  one  of  the  coaxial  switches 
occasionally  closes  improperly,  or  if  a data  point  was  taken  during  a power  transient,  this  program 
salvages  the  data  set. 
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/HSER7  CHECK  SE 7 TATE 


LORD 

RUN 


PROG  EXT <5) ? I NT (10)? 16 

■ |Eu?//cx>  c accuser  ta?s 


y,  ^CHECKSET • LORD  FROM  INT=0? EXT=1?0 
”“HT0AD  FILES:  START#?  STOP#?  STEF'??28?  35)  1 
STORE  to  I NT  TAF'E=0?  EXT=1?0 


/JOSERT  SV*"**y 


TAPE  (fOtT  lORrrE 


NBS1G. 09  CHECKSET  <D1-F29> 

HBS1C.  38  MEflS  <D1-F14>  T3-F12:  X.24  by  UFlKEFIELD?  WAIT 


-1- 

A N / T S C - 5 4 #3  W o.  hia  w o. » H o.  w o.  w l i 
THIJ:  1980  FEB  7 

0 MHz  #? 


LDfile  RN  'ST  STAR  FREQ  # EL  DATE  REMARKS 

28’  102.02  MOON  7300  1 59  THUFEB7  1980  BAD  FT  CUT- 1 ? POOR  DNCVR  7700 

HADVAR=  7 ■ 656Q7E-03  — Cut  —2. 

HADVAR=  0.399862911  «*-.  cvr-f  +®a 

10  0 


N3 

PWR/PWR (ADD) 

CUT 

-1 

RUN  SET  N 

102  2 9 

1 

0. 72940 

2 

0 . 7368  0 

3 

0. 85587 

4 

0.75591 

Cj 

0. 74943 

fc 

0.75538 

7 

0.77527 

8 

O. 77947 

9 

0 . 79204 

10 

0 . 80587 

1 1 

0. 68740 

12 

0 • 9674U 

13 

0. 89670 

14 

0. 76618 

15 

0.76251 

16 

0.75071 

17 

0.88405 

IS 

O. 74242 

19 

0.76  O 3 0 

20 

4.09498 

AT  POINT  N3=  20  THE  VALUE  4.09498  WAS  REPLACED  WITH  0.76626  ON  CUTPASS  1 
HADVAR=  0.084255917  *—  NO**  CUT  -/  is  oK 
HADVAR=  0.867043758  CUT  0 v~*+**~u  *^KC£ 

1 0 0 


CUT  RUN  SET  N 
-0  102  2 10 


N3  PWR/PWR < ADD > 


1 

0.73408 

2 

0.73687 

3 0.74996 

4 0.75116 

Cj 

0.76871 

6 

0.77187 

I? 

0.77118 

8 0.78432 

9 0.80918 

10 

0.79585 

ii 

0.83174 

12 

0 . 80000 

13  3.96958 

14  1.06169 

15 

0.77210 

16 

0.76083 

17 

0.75274 

18  0.74876 

19  0.73093 

20 

0 . 729 1 0 

AT  POINT  N3=  13  THE  VALUE  3.96958  WAS  REPLACED  WITH  0.97382  ON  CUTPASS  1 
HRDVAR=  0. 062312368**-  cut  & a)Ou)  /j  OK. 

HADVAR=  0.015146980- — I OK 
HADVAR=  0. 012875245*  CM.T  t OK. 


J>A7*A  troReD 


STORE 
28 


RUN/SET  STAR 
102.02  MOON 


FREC! 

73O0 


ELEV 

59 


DATE 

THUFEB7  1980 


REMARKS 

BAD  FT  CUT-1? POOR  DNCVR  7700 
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6.7  The  FIT  program  and  annotated  printout 


The  purpose  of  the  FIT  program  (also  referred  to,  or  labled,  as  NONLI NLSFIT)  is  to  make  a 
precision,  3-D  Gaussian  fit  to  a set  of  data  to  obtain  a precision  measure  of  the  amplitude  of  the 
signal  caused  by  the  star,  to  obtain  a measure  of  the  sky  background  temperature,  and  to  obtain  a 
measure  of  the  half-power  beamwidth  (HPBW).  This  is  a precision  fitting  program  and  it  runs  slow  (30 
minutes  or  more  per  data  set). 
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ANNOTATED  PRINT  OUT  OF  FIT  PROGRAM 


* IJJSBR  T FIT  T AP£ 


LOAD 

RUN 


NBS1H.08  NONLINLSFIT  (Dl-FI 


PGM:  VERSION  V. 00-AX-70-18-G 

MAX  NUMBER  OF  PASSES ?8 

KEY  IN  today’s  t ime/date?0830  10/26/81 

BATCH  RUN  ID: 

DATA  FIT  RUN  TIME/DATE:  0830  10/26/81 

K:  beamwidth  guess  < deg)?. 47 
DATA  DEVICE?:  5 (DISC) , 16( CASS)? 10 
KEY  IN:  FIRSTFILE.  LASTFILE?9, 13* 1 

-X  ZlUJrub  T(T  7 A 4.  RBMOtf 


^TAF^ET  ^AR^Et'^rVtsT^ f^RTSET 


I I / ( A. 

SOFfc 

tJZZ 

r \ \ 

trotected) 


*r  U)7?ITE- 

STARTSET  STARTSET  STARTSET  STARTSET  STARTSET 


FILE: 


RUN. SET  103.01 


OUTSIDE 


PGM : VERS  I ON  V . 00-AW0- 1 8-G 
NONLINLSFIT  GAUSSIAN  SHAPE  MODEL 
BATCH  RUN  ID: 

DATA  FIT  RUN  TIME/DATE:  0830  10/26/81 

FRIFEB8  1980AN/TSC-54  #3  Wahiawo Hawawi i 
N0=  6 SS  SOURCE:  MOON  YSTRDY  BIAS  GUD&CLR  SKY! 

NBS1C.42  ME AS  <D1-F14>  T3-F12  X.25bv  WAIT,  JOHN  W 

IK 6, 75)  = <DATAPOINTTIME>  = 18  seconds  DATA  STATUS  IK  1 ■ 

FREQ:  7508  MHz  nominal  dTadd:  999  keluin 
ALPHA=  70  (the  number  of  data,  points  fitted  in  the  set) 

( MAX-M I N ) = 0.11288  =(  0.93201  MINUS  0.81913)  RUN. SET: 


■ 70): 


103.01 

•'"Vi** 


tvire* 


PASSNUM=  1 


D Tsrce  100.5420274 
FRIFEB8  1980AN/TSC- 


H width=  0.47  FILE: 

54  #3  Wah i awa , Hawaw i i 


N4  VALUES:  14  14  14  14  14  SYSTEMCUT  H4:  14 

OBSERVATIONS,  P(obs),  SELF-SCALED:  INITIAL  CALCULATIONS,  Z(calc): 


N.DECL. 

OFFSET:  -0.262  degrees 

POINT  1 

-0.262  degrees  (FITTED) 

0 . 8 • J 3 6 S 

0 

0.82764 

0 • 

0. 83920 

0 

0.82955 

0 • 

0 . 84526 

0 

0.83320 

0 ! 

0.85598 

0 

0.83911 

0 ! 

0.86139 

0 

0.84721 

0 ! 

0 . 88 346 

0 

0. 85633 

0 • 

0.87738 

0 

0.86424 

0 • 

0. 88771 

0 

0.86848 

0 ■ 

0.87266 

0 

0 . 86758 

0 ! 

0.8541O 

0 

0.86185 

0 • 

0.85341 

0 

0.85324 

0 • 

0.84088 

0 

0.84426 

0 • 

0. 83076 

0 

0.83683 

0 • 

0.82629 

0 

0.83172 

0 : 

N.DECL. 

OFFSET:  -0.131  degrees 

POINT  15 

-0.131  degrees  (FITTED) 

0. 84264 

0 

0.83254 

0 • 

0.85838 

0 

0.83948 

0 • 

0.87633 

0 

0.85076 

0 ! 

0.90519 

0 

0.86622 

0 : 

0.9152O 

0 

0.88363 

0 : 

0 . 92690 

0 

0.89873 

0 • 

0.91474 

0 

0.90683 

0 • 

0. 90456 

0 

0.90510 

0 ! 

0.89951 

0 

0.89416 

0 ! 

0.86165 

0 

0.87772 

0 i 

0.853O7 

0 

0.86059 

0 : 

0. 83459 

0 

0.84641 

0 • 

0.83652 

0 

0 . 8366? 

0 : 

0.82861 

0 

0 . 83099 

0 ! 
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N. DECL.  OFFSET!  0.606  decrees 

6.83326  o 

6.84676  o 

6.85838  o 

O. 87467  o 

6.89511  o 

0.91493  o 

0.93261 

6 . 92690 
6 . 92922 

6.96628  o 

0.88851  o 

0.87240  o 

0.85376  o 

0.84967  o 


POINT  29 
6. 83665 
6. 83634 
6.84662 
0 . 86246 
0. 88288 
0. 96420 
0. 92067 
0. 92690 
0. 92067 
6.90420 
6 . 88288 
6.86246 
0.84662 
0.83634 


0.000  decrees  (FITTED 
o 


N.DECL.  OFFSET 

0.131  desrees 

POINT  43  0.131 

degrees  (FITTED) 

0.84383 

0 

0.82979  o 

6.84551 

0 

0.63437  o 

6.85855 

0 

-0.84265  -o 

0.87205 

0 

0.85542  c 

0. 88789 

0 

0.87189 

ri 

0. 90546 

0 

0.88908 

0 

0. 90927 

0 

0.90237 

0 

0.90982 

0 

0.90740 

0 

0 . 90700 

o 

0. 90237 

0 

0.88769 

o 

0. 88908 

Cl 

0.88399 

0 

0.87189 

0 

0. 85864 

0 

6.85542  c 

6.84958 

0 

0.84265  o 

6. 84062 

n 

0.83437  o 

N.DECL.  OFFSET 

: 0.262  degrees 

POINT  57  0.262 

degrees  (FITTED'1 

0.82861  o 

0.83484  o 

0.84628 

0 

0.84153  o 

0.85487 

0 

0.85016  g 

0.87161 

0 

0.e5917 

0 

0.87179 

0 

0. 86614 

o 

0 . 86987 

0 

0.86878 

o 

0.86329 

0 

0 . 86614 

0 

0.86415 

0 

0. 85917 

0 

0.85069 

o 

0.85016  o 

0.84163 

0 

0.84153  o 

0.83376  o 

0.83484  g 

0.82736  o 

0.83050  g 

0.81913  o 

0.82810  g 

0 . 82 6 9 5 o 

0.82696  o 

(MAX-MIN)=  0. 

11288  =<  0.93201 

MINUS  0.8191 2D 

RUN.  SET:'  103.01 

PASSNUM=  1 D 

Tsrce  100.5420274 

H width=  0.47* 

FILE:  9 

STD  DEV  RESIDUALS:  0.0 14201 

SLOP:  0.6954650 

RUN. SET:  103.01 

TWO  LARGEST  RESIDUALS:  Q HCG) 

H(Q> -'SIGMA  Q 

H • 0 ) H ( Q > -■  S 

I GMA 

18  0.0389 

7 

2.74393  19 

0.03158  2.22361 

PASSNUM=  2 D 

Tsrce  101.9752827 

H width=  0.5312707 

FILE:  9 

STD  DEV  RESIDUALS:  0.005496 

SLOP:  0.4853367 

RUN. SET:  103. 

01 

TWO  LARGEST  RES 

I DUALS:  Q H(Q) 

HCCD-SIGMA  Q 

H < Q ) H < Q ) 

I GMA 

23  0.81534 

2.79143  20 

0.01184  2.15447 

PASSNIJH=  3 D 

Tsrce  107.3730695 

H widt-h=  0.5201868 

FILE:  9 

STD  DEV  RESIDUALS:  0.004795 

—CLOP:  0.0120357 

RUN. SET:  103. 

01 

TWO  LARGEST  RES 

I DUALS:  Q H(Q> 

H < Q '--SIGMA  Q 

H < 0 > H(Q)/S 

I GMA 

23  0.01090' 

\ 2-27313  . ,5!_. 

0.00993  2.070 

I;  “• 

FIT  PAttHFTFR. 
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F'flSSNUf'1=  4 D Tsrce  107.8526375  H width*  0.52103239  FILE:  9 

STD  DEV  RESIDUALS:  ' 0.004784  SLOP:  0.0610028  PUN. SET:  163.01 


TWO 

LARGEST 

RESIDUALS: 

Q H ( 0 > 

23  0.61136 

H(Q> /SIGMA  0 H ( Q ) 

2.37393  57  6.6697 

H < Q > /SIGMA 
7 2.64286 

PASS 

NUM*  5 

D Tsrce 

107.7833797 

H width*  0.52641434 

FILE:  9 

STD  DEV  RESIDUALS:  0.004784  SLOP:  0.0601077  RUN. SET:  103.01 

TWO  LARGEST  RESIDUALS:  Q H < Q ) H<Q>/S"IGMA  Q H(G)  H<Q)/SIGMA 

23  0.61128  2.35726  57  6.06981  2.65165 


PASSNUM=  6 D Tsrce  107.8666647  H width*  6.520639217  FILE:  9 

FRIFEB8  1 980AN.  TSC-54  #3  Uahiawai Hawawi i 

PASSNUM=  6 D Tsrce  107.8666647  H width*  6. 526639217  FILE:  9 

STD  DEV  RESIDUALS:  0.684784  SLOP:  6.0006107  ' RUN. SET:  163.61 

TWO  LARGEST  RESIDUALS:  Q H ( Q > H(Q) /SIGMA  - Q ' H<Q>  H(Q> /SIGMA 

23  0.01129  2.36622  57  0.06986  2.64732 


PASSNUM*  7 D Tsrce  107.7999243  H width*  6.520569261  FILE:  9 
STD  DEV  RESIDUALS:  6.004784  SLOP:  6.0600011  RUN. SET:  163.61 

TWO  LARGEST  RESIDUALS:  0 HCQ>  H< GO /SIGMA  Q H(Q>  RKQ> /SIGMA 

23  6.01129  2.35966  57  0.66980  2.64837 
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SALIENT  RESULTS  HAVE  BEEN  WRITTEN  IN  D MATRIX  OF  FILE  9 
BATCH  RUN  ID: 

DATA  FIT  RUN  TIME-DATE:  6830  10/26/81 

F R I F E B 8 1 9 8 6 A N / T S C - 5 4 #3  W a.  h i a w a , H a w a w 1 1 
N6=  6 St  SOURCE:  MOON  YSTRDY  BIAS  GUD&CLR  SKYS  OUTSIDE 

NBS1C.42  ME AS  < D 1 - F 1 4 > T3-F12  X.25bv  WAIT,  JOHN  W 

NONLINLSFIT  GAUSSIAN  SHAPE  MODEL  FILE:  9 RUN. SET  103.61 
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STD 

TWO 


DEV  RESIDUALS:  0.064784  SLOP:  0.0000011 

LARGEST  RESIDUALS:  Q HCQ)  HCQ) /SIGMA  Q 

23  0.61129  2.35966  57 
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N0=  6 S$  SOURCE:  MOON  YSTRDY  BIAS  GUD&CLR  SKYS  OUTSIDE 

NBS1C.42  MEflS  <D1-F14>  T3-F12  X.25bv  WAIT,  JOHN  W 

SALIENT  RESULTS  HAVE  BEEN  WRITTEN  IN  D MATRIX  OF  FILE  9 

PGM:  VERSION  V.  00-AW0-18-G 

NONLINLSFIT  GAUSSIAN  SHAPE  MODEL  FILE:  9 RUN. SET  103.01 

endset  endset  endset  endset  end  set  endset  endset  endset  endset  endset  endset 
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6.8  The  REWORK  Program 


The  purpose  of  the  program  REWORK  is  to  calculate  the  primary  parameters  G/T,  G/Ta,  NEF,  NUF,  the 
half-power  beamwidth  of  Cas  A (or  moon)  convoluted  with  the  antenna  beam  pattern  along  a path  of 
constant  declination  (*HPBW#1),  the  half-power  beamwidth  perpendicul ar  to  the  constant  declination 
(*HPBW#2),  and  the  antenna  HPBW,  each  as  a function  of  elevation.  Then  the  program  calculates  a least 
squares  fit  for  each  of  the  six  primary  parameters  to  curves  of  the  form  y = ax  + b where  x is  either 
the  elevation  angle  (linear  fit)  or  the  cosecant  of  the  elevation  angle  (esc  fit).  For  the  parameters 
G/T,  G/Ta,  NEF,  and  NUF,  the  measurement  errors  are  calculated.  The  measurement  errors  taken  into 
account  are  those  discussed  in  the  site  preparation  section,  and  by  Daywitt  [3]  in  a separate 

publication.  The  deviations  of  the  data  paints  from  the  fit  curves  are  calculated  for  the  primary 

parameters,  and  also  for  the  measured  Y-factor.  The  conditions  assumed  for  measurement  and  for  the 

error  estimate  are  labeled  and  printed  out.  The  results  of  many  of  the  subcalculations  used  in  the 
error  calculations  and  some  related  parameters  are  printed  out.  The  peripheral  calculations  are 

presented  to  help  the  metrologist  using  the  REWORK  program  get  a better  feel  about  the  conditions  for 
the  measurement  and  information  to  help  decide  whether  to  retain  or  reject  a measurement  set. 

Basically,  the  REWORK  program  calculates  the  measurement  results  based  on  the  precision  fit 
results  from  FIT  and  then  plots  them. 

6.8.1  Summary  Tapes 

The  REWORK  program  is  designed  to  rework  single  frequency  data  contained  on  a single  frequency 
summary  tape;  so,  if  data  from  different  tapes  are  desired  in  the  rework,  the  data  have  to  be 
collected  onto  a single  tape  using  the  SPLIT  program.  Files  are  marked  at  the  first  of  the  summary 
tape  to  store  the  results  of  a REWORK  of  the  data. 

6.8.2  REWORK  Program 

Before  the  rework  can  begin,  the  data  on  the  summary  tape  must  be  processed  by  the  FIT  program. 
Using  the  listing  routine  in  SPLIT,  it  is  handy  to  have  a listing  of  all  the  data  sets  on  the  summary 
tape.  The  REWORK  is  loaded  and  run,  and  when  the  program  arrives  at  the  TRAP  position,  it  displays 

0RW,1 L0AD,2AUT0,3DEL,4G/T(  = NC)  =0? 

The  options  are  as  follows:  ORW  starts  the  rework  procedure.  Namely,  new  values  of  NEF,  NUF,  G/T, 

G/Ta,  HPBW,  etc.  are  calculated  using  the  results  of  the  FIT  program.  A summary  of  the  new 

calculations  is  stored,  and  the  results  are  plotted. 

1 LOAD  loads  the  summary  of  calculations  from  a prior  rework. 

2 AUTO  is  used  to  replot  the  data  from  a rework  (ORW),  or  plot  data  that  was  loaded  ( 1 LOAD) , or  to 
replot  the  results  after  certain  of  the  data  sets  were  deleted  via  3 DEL. 

3 DEL  is  used  to  exclude  the  results  from  certain  data  sets  from  the  result  plots  (2AUT0) , or  vice 
versa  (i.e.,  to  include  previously  excluded  data  sets).  The  data  sets  which  are  excluded  are 
indicated  with  a minus  sign  before  the  elevation  on  the  summary  list  (4G/T  option). 
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4G/T  is  used  to  list  out  the  summary  of  the  calculations. 


6.8.3  Selecting  the  Data  to  be  Deleted 

An  important  step  in  reworking  the  data  is  in  the  selection  of  the  data  sets  to  be  deleted  from 
the  final  results.  The  rule  of  thumb  is  "never  remove  a data  set  without  a valid  reason".  This  rule 
leaves  a good  deal  of  latitude,  and  nothing  identifies  a skilled  metrologist  more  than  the  information 
and  care  used  to  document  the  reasons  for  rejecting  data.  The  design  of  the  rework  steps  is  arranged 
to  aid  in  recognizing  invalid  data.  We  recommend  that,  on  the  list  of  data  sets  deleted  from  the 
final  results  (indicated  by  a minus  sign  on  the  data  list),  the  reason  for  each  deletion  be  included 
with  the  final  results.  This  practice  encourages  complete  annotation  of  measurement  anomalies  as  they 
occur  during  the  measurement  process  and  helps  an  outsider  judge  the  reliability  of  the  measurement 
process.  Following  are  some  of  the  reasons  we  have  used  for  deleting  data  sets. 

(1)  The  set  was  not  processed  by  the  calculator.  The  fitting  procedure  is  very  robust,  but  it 
needs  power  measurements  surrounding  the  peak  of  the  star  output  before  the  process  can  meaningfully 
converge. 

(2)  An  error  occurred  in  the  measurement  conditions  ( i . e . , missetting  the  antenna,  an  error  in 
setting  the  down  converter  frequency,  or  the  frequency  lock  circuit  was  out  of  range).  If  the  problem 
is  discovered  in  time,  the  data  usually  can  be  retaken.  Otherwise,  a comment  is  recorded  on  the  data 
sheets  and  in  a measurement  comment  associated  with  a subsequent  measurement.  An  antenna  pointing 
error  can  usually  be  detected,  because  one  cut  will  have  the  star  peak  in  a distinctly  different  place 
than  the  other  cuts. 

(3)  The  star  used  was  not  Cas  A.  Sometimes  it  is  useful  to  select  a star  other  than  Cas  A to 
examine  the  G/T  trend  at  angles  lower  than  what  is  available  using  Cas  A.  Because  the  alternate  stars 
are  not  as  well  studied  as  Cas  A,  this  information  is  not  usually  included  in  the  final  results. 

(4)  The  measurement  conditions  were  abnormal  ( i . e . , the  data  were  taken  during  a violent  rain 
storm).  Measurements,  particularly  at  low  angles,  can  be  greatly  affected  by  condensed  water 
particles.  The  atmospheric  conditions  between  the  star  and  the  antenna  are  assumed  to  be  uniform. 

(5)  The  result  of  one  data  set  has  a large  deviation  compared  to  the  others.  If  the  frequency 
was  incorrectly  recorded,  this  is  usually  obvious  on  the  G/Ta  or  Y-factor  plot  because  the  coupling 
ratio  of  the  noise  add  directional  coupler  is  frequency  dependent.  It  is  unusual  for  any  measurement 
set  to  lie  outside  the  error  bars  on  the  NEF  plot.  Any  point  that  lies  half  again  farther  out  than 
the  error  bar  should  be  deleted.  In  fact,  any  point  that  is  near  the  error  bars  on  the  NEF  should  be 
scrutinized  on  the  rework  sheets  as  to  how  well  the  measured  data  agree  with  the  remaining  data  set 
results.  In  this  regard,  remember  that  the  HPBW  and  Y-factor  plots  have  only  one-sigma  error  bars,  so 
that  one  third  of  the  data  is  expected  to  lie  outside  these  error  bars.  If  the  offending  measurement 
set  is  way  out  of  line  with  the  others  (say  three  times  the  error  bar)  on  one  or  more  of  the  result 
plots,  it  is  usually  best  to  delete  the  data  set. 
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6.8.4  Typical  Rework  Procedure 


The  typical  rework  procedure  for  data  taken  at  three  frequencies  would  go  as  foows: 

1.  Using  SPLIT  and  the  original  three  frequency  summary  tapes  (and/or  the  data  tapes  if  an  ERROR 
59  is  encountered),  split  the  data  into  three  different  Single  Frequency  Summary  Tapes  (SFST's). 

2.  Using  each  of  the  three  SFST's  and  FIT,  each  data  set  is  fit  to  a 3-D  Gaussian  curve  and  the 
fit  results  recorded  back  onto  the  three  SFST's. 

3.  By  looking  at  the  graphs  from  FIT,  identify  the  file  numbers  of  the  data  sets  that  have 

isolated  bad  data  points. 

4.  If  there  are  any  data  sets  with  isolated  bad  data  points,  use  CHECKSET  on  these  files. 
CHECKSET  will  replace  the  bad  data  points  with  a point  which  is  the  mean  of  the  data  on  either  side. 

5.  Using  FIT,  refit  each  of  the  files  corrected  with  CHECKSET. 

6.  Using  each  of  the  three  SFST's  and  REWORK,  perform  option  ORW  in  the  REWORK  program. 

7.  Examine  the  printouts  and  determine  which  (if  any)  data  sets  need  to  be  deleted.  If  none, 

you  are  finished.  Otherwise,  using  REWORK  and  the  appropriate  SFST,  reload  the  summary  results  into 

the  calculator  (if  it  is  not  in  the  computer  memory)  using  the  1L0AD  option,  delete  the  bad  data  sets 

(use  3DEL) , and  replot  the  results  (use  2AUT0). 

6.8.5  Interpretation  of  Results 

The  results  of  a measurement  are  printed  out  as  a series  of  twelve  computer  printouts;  (1)  a 

summary  table  of  the  measurement  results,  (2)  a table  of  the  results  of  the  least  squares  fits  of  G/T, 

G/Ta,  antHPBW,  Y-Factor,  NEF,  and  NUF  versus  the  cosecant  of  the  elevation  angle  of  the  antenna,  and 
versus  the  elevation  angle  directly,  (3)  a graph  of  NEF  versus  antenna  elevation,  (4)  a graph  of  NUF 
versus  antenna  elevation,  (5)  a graph  of  G/T  versus  antenna  elevation,  (6)  a graph  of  G/Ta  versus 
antenna  elevation,  (7)  a graph  of  antHPBW  versus  antenna  elevation,  (8)  a graph  of  Y-factor  versus 
elevation,  (9)  a table  of  NEF  measurement  results  and  error  components  at  various  antenna  elevations, 
(10)  a table  of  NUF  measurement  results  and  error  components  at  various  antenna  elevations,  (11)  a 

table  of  G/T  measurement  results  and  error  components  at  various  antenna  elevations,  and  (12)  a table 
of  G/Ta  measurement  results  and  error  components  at  various  antenna  elevations.  Much  of  what  appears 
on  the  printouts  is  self-explanatory,  but  the  following  remarks  are  included  to  better  understand  some 
of  the  printouts. 

In  printout  (2),  each  parameter  is  fit  to  two  different  curves,  viz.,  the  parameter  versus  the 
cosecant  of  the  elevation  angle  of  the  antenna,  and  the  parameter  versus  the  elevation  angle.  The 

uncertainties  listed  are  the  one-sigma  deviation  of  the  measured  points  to  the  fit  parameters. 

For  printouts  (3)  - (8),  the  measured  points  are  plotted  as  a pound  sign  (#),  and  the  measured 
value  and  the  measurement  label  are  listed  on  the  right.  The  fit  points  are  indicated  with  a 
period.  At  five-degree  elevation  intervals,  error  bars  are  plotted  about  the  fit  values,  and  the 
uncertainty  is  listed  on  the  extreme  right  in  lieu  of  the  measurement  label.  The  uncertainties  listed 
with  NEF,  NUF,  G/T,  and  T/Ta  include  the  errors  labeled  and  listed  in  the  error  table  printed  in  SITE 
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PREP.  For  the  plots  of  the  measured  half-power  beamwidth  (antHPBW)  calculated  from  the  antenna-star 
convolution  measurements  and  for  the  Y-factor,  the  error  bars  indicate  the  one-sigma  deviation  of  the 
measured  values  from  the  fit  value. 

For  printouts  (11)  - (12),  the  results  for  NEF,  NUF,  G/T,  and  G/Ta  are  listed  in  an  alternate  way 
that  shows  the  error  contribution  details  at  various  elevations.  The  parameters  for  the  error 
calculation  are  printed.  Most  of  the  parameters  can  be  identified  with  the  corresponding  parameter 
listed  with  more  explanation  with  SITE  PREP  error  table.  Other  parameters  are  labeled  with  the  values 
that  are  explained  in  the  computer  variables  list  given  in  section  7.  The  entry  labeled  "G-diff" 
denotes  the  difference  in  (1)  calculating  the  antenna  gain  using  the  antenna  HPBW  (see  section  2.6)  at 
30  degrees  antenna  elevation  angle  and  using  the  measured  G/Ta  curve  to  obtain  G at  a particular 
elevation,  and  (2)  calculating  antenna  gain  directly  from  HPBW  at  the  given  elevation.  For  further 
explanation  of  the  various  items  in  these  tables,  consult  the  annotated  printouts  at  the  end  of  this 
section. 

6.8.6  Measurement  Pitfalls 

As  with  any  computer  printout,  the  results  flow  easily.  The  computer  results  are  not  always 
correct!  As  more  experience  is  gained,  one  can  gain  an  intuition  about  the  quality  of  the  results. 
However,  one  can  begin  to  trust  their  intuition  too  much.  Intuition  is  not  always  correct!  The  best 
policy  from  my  experience  is  to  DOCUMENT.  Use  the  measurement  comments  labels  provided  within  the 
MEAS  routine.  Use  them  to  document  measurement  conditions  and  to  explicitly  state  the  measurement 
concerns  that  you  have  at  the  time  the  measurement  was  being  taken.  These  comment  labels  are  stored 
along  with  the  data--they  are  more  apt  to  be  noticed  and  can  be  a reminder  to  check  the  handwritten 

comments  on  the  computer  printouts.  Again,  BE  SURE  TO  DOCUMENT  THE  MEASUREMENT  CONDITIONS.  Two 

measurement  pitfalls  occur  regularly,  so  they  will  be  discussed  explicitly. 

6. 8. 6.1  Atmospheric  Conditions  Pitfall 

The  model  used  in  the  computer  is  that  for  an  atmosphere  with  a typical  temperature,  humidity 

profile.  Primarily,  this  assumption  excludes  a large  amount  of  condensed  water,  or  a dramatic  change 

in  temperature/humidity  as  encountered  when  a weather  front  moves  near  the  measurement  site.  Problems 
with  the  model  atmosphere  are  easiest  to  spot  on  an  all -frequency  NEF  plot.  The  NEF  of  an  earth 
terminal  should  be  independent  of  frequency  and  antenna  elevation  within  about  5%.  The  dependencies 
are  due  to  small  changes  in  antenna  gain  with  antenna  elevation,  small  changes  of  the  system 
temperature  due  to  increased  thermal  radiation  into  the  antenna  side  lobes  at  low  antenna  elevation 
angles,  or  small  changes  of  the  system  temperature  with  frequency.  When  abnormal  atmospheric 
conditions  exist,  THE  ERROR  ESTIMATE  listed  on  the  computer  printout  MAY  BE  TOO  SMALL,  especially  at 
low  antenna  elevation  angles. 

6. 8. 6. 2 Data  Deletion  Pitfalls 

By  the  process  of  deleting  the  data  sets  farthest  from  the  fit  value,  one  could  obtain  a data  set 
with  relatively  small  deviation.  Despite  the  appearance,  the  accuracy  of  this  truncated  data  set  is 
actually  poorer  (unless  the  data  sets  deleted  were  truly  abnormal)  because  the  measurement  set  is 
smaller.  Because  of  the  nature  of  random  errors,  the  various  measurement  sets  will  naturally  have 
somewhat  greater  or  smaller  variances  from  one  another,  especially  when  the  numbers  of  measurement  are 
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small.  The  true  uncertainty  of  the  ideal  measurement  is  not  this  variable.  So,  if  the  variance  is 

. 

smaller  for  one  frequency  than  the  other,  this  is  not  necessarily  a more  accurate  result  (and  vice 
versa) . 
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6.8.7  The  REWORK  annotated  printout 
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= a0  + a,p  + a,pJ 

+ a3p3 

, where 

p is  the  fraction  of  the  forward  interval. 

is  expressed  in  units  of  the  Earth’s  equatorial  radius  (6  378  160  m). 
ai,  a,  are  tabulated  in  units  of  the  end-figure  of  a0 . 
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HPBW# 1 

FREQ 

STAR 

9 

103.01 

57.06 

0.40775 

"7  c- 

MOON 

11 

103.03 

52.26 

0.400121 

7" 

MOON 

12 

103. 04 

45.96 

0. 369816 

7. 5 

MOON 

[ERROR  bj)lN  LINE  5195 

~e*rrr  p*TA  FIlC  “ SftVAL  tfpiUAH  tffFS  J*  |fte7  STlFi 


TAPE  60. 1 


date  1 NBS1B.118*  REWORK  <D1-F16>  T4-F12 

FINISHED  MOON 


REWORK  1.00 


MBS  1C. 38 


MEAS  < D 1 - F 1 4 > T3-F12-  X.24bv  WCD-  HRA 


(78  1115  23.39 


-3- 


RUN  1 


AN/TSC-54  #3  Wah i awa - Hawaw 1 1 

THU:  1980  FEB  7 

7.500  GHz-  18.0  Ft  DISH 


# RTS  = 

3 

G-TCdB) 

= ( 

0.0000  +- 

0. 0000) 

+ ( 

0 . 0 0 0 0 0 + ~ 

0. 00000 )*CSC  L 

G/T(dB) 

= ( 

0.0000  +- 

0.0000) 

+ ( 

0.00  0 0 0 + “ 

0. 00000 )*ELEV 

G-'TA(dB) 

G'TA(dB) 


0.0000  +-  0.0000)  + ( 

0.0000  +—  0.0000)  + ( 


0.00000  +-  0. 00000 )*CSC  L 
0.00000  +~  0. 00000 )*ELEV 


fo*  PA£P/r  bvlt  *****  »* 


ant  HPBW(deg): 
ant  HPBW(d€<3)  = 


0.6434  +- 

0.2120  +- 


0.0050)  + 
0.0071)  + 


-0.19557  +-  0.0353C 
0 . 00349  +-  0 . 0009 ! 


Y-f  actor 
Y-f  actor 


0.0000  +-  0.0000)  + 

0.0000  +-  0.0000)  + 

0 • • 


0 . 0 0 0 00  + ~ 0.00  0 0 0 ) * C S C L 
0.00000  +-  0. 00000 )*ELEV 
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RSLTS  TO  NOW  SUMMARY  a =YES > < =NC>:  6 
LOAD  f roci  I NT =@  - EXT  = 1 (.  =NC):  6 ?8 

LORD  FILES:  START# -STOP#;  STEP''"?  - 23-  1 
FILE  10  FR I FEES  1980AN  TSC-54  #3  W 1 

rr 03.02 

A MOON  NBS1C.42  MEAS  <D1-F14>  T 

iff 5 file  whs  step  cuff  Because 

THE  FIT  Troc-kam  could  a/’t  fit  /T,  . .. 

FILE  11  F R I F E B 8 198  Q A N T 8 0 - 5 4 # 3 W a h i/  a w 6.  - H a w a.  w i i 

103.03 

MOON  NBS1C.42  MEAS  <H1-F14>  T3-Fll 2 


.RlfSUrP  OF  UWRK 

Y »tr«  ASS o*  ei>  cpnonmu 

TAFE  60.  1 do. to.  1 HES1H.  118- 

SUNR I SE . 


QuESTtOAJ  AUskU  BtJ) 

typ  app  ahv  Pat  a pvt*  I 
(NAT  H)  9*T  AN*  HA  CL*  \ 

c v*f  ac**t^o  inis  / 

r ,srN 

iLMru^j 

■J-T  ~hj-c-U:  AAaJl  J 

4jsr*£>\jf^  < -+4lU. 

REWORK  <D1-Fl6>  T4-F12  REWORK  1.00 


NBS1C.42  MEAS  <H1-F14>  T3-F12-  X.25bv  WAIT,  JOHN  W (78  1 1 15  0.08.' 


-4- 


RUN  103 


A N TSC-54  # 3 W o.  h i a w o. , H o.  w a w 1 i 

FRI:  1980  FEB  8 

7.500  GHz-  18.0  Ft  DISH 


FAOLKMi  KAPB  S iNTbAA'VOM  79  m$TAW  WfT 


TEMP 
69.0  F 

C-  @ @ C“  @ 0 0 0 0 0 0 0 0 0 
SET  = 70  RTS, 


REWORK  FILE  TAPE 
1.0  11  60.1 


REL  HUMIi 
94.0  7. 


WATER  DENS 
16.7  i-i  / f-'i  T 2 


CLOUD  COVER 
1 


WIND 
O nph 


0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
STD  DEV  RSDL  = 0.005805,  wax  RTS  1 Cs  1 gna  > = 2.02,  1.82 


TIME  < H rs > 
17.328 


EFF  AREA 
15.4  nt2 


SKY  BRIGHT 
3.72  K 


ELEV ( de 3 


RUN 

103 


SET 


-HF  E W ■ deg) 
0.514  +-  0.023 


HF'BW(deg)  T-'Ta 

0 . 400  0 . 8295  +-  0 . 0038 


DT  (MOON  > T a 
O.1097  +-  0.0034 


DEC  L OF  MOON 
-10. 00Ode 3 


version#  Y-FACTOR  *HFBW#1  *HF'BW#2  *HPBWiso  G T(dB)  NEF  NUF 

5.00  1.1322  0.514  0.514  0.514  23.57  94. 263k FU  96. 51 6k FIJ 

Cd  Id  Id  Cd  C“  C“  Id  Id  I?  I » Id  C“  © l«  I “ L“  C“  0 0 0 0 000  0 0 0 0 0 00000000  0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 


MOON  FLUX  < 7500MHz,  day  8,  17.3hrs>  = 20953  FU 


1 u n a ra^e  el eu  A 0 A 1 A 2 m o on  d i a w ft e a n t e n p 

0. 72 days  52.2  62.5945  299050  21923  6.504  deg  211.0  k 

ant  HF'BW  = 0.64336  +-0.  195569  CSC  L = 0.3959  (L  = 52.2  deg) 

K 1 K2  K3  K.6  K8  K9  K APR-eff  R-eff  SCFU) 
0.986  0.618  1.000  1.O00  0.989  1.000  0.602  0.8777  0.98  20952.7 

SITE  ELEV  ox/  o.ttn  water  attn  zenith  ottn  REFR  #1  REFR  #2 
0.  152  kri  0.03227  dEi  O.0147  dB/dens  0.0470  dEi  1.282  6.0130 


t enp 
2 03. 1 K 


X i < K ) 

5. 813E-04 

ant -D I AM 
1 8 . 0 1 1 
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0 RWll  LORD!  SflUTO)  3=BEL;  4G--'T < =NC> : 0 
SUM  IMF  =MC>:  60.1  r' 

RESULT  SET  # : 1 = 1 ST  > 2=2nd  ( =NC>:  3 '1 


0 RWj 1L0AD » SflUTO ! 3=DEL> 


f t/OMMU' 

\ you  PO  U07  A tEeo 
"ToffidAO  C.ORREV? 

rework—  wms 

T0RWE&  TRf 

CA16WMT0R 


/r  foi>  cuft{ov%  tVH-AT  tV*s 


TAPE  60.1  do  t a 3 NBS1D.119*  REWORK  <D1-F1€>  T4-F12  REWORK  14.12 

MBS  1 ft . 09  LOADER  .IU-F0;  T2-F0>  X.27*  <Dl-4>  T2-4  <78  1115  7. 19> 


RUN 


AH  ' TSC-54  #3  Wo.hi  awa > Hawa  i i 

FRI:  1980  FEB  8 UiltJ- 

7.500  GHz.  18.0  Ft  DISH  ^ 

■ MWM  SllAl  MMWS  MA  0OT  VM 


Hj  fMML  WW 


RUN  SET 

STAR 

T ELEV 

G.-'T 

G.-'T  A 

ant  HFBW 

FREQ 

Y-f  CLC 

NEF 

NUF 

1 0 3 . 0 5 

MOON 

-39.  4 

25. 037 

24.  107 

0.702 

7.500 

1.218 

66.78 

69.05 

2 . 06 

MOON 

-23. 8 

20. 937 

20.254 

0.099 

7.500 

1 . 082 

173.30 

179.54 

1 02 . 07 

MOON 

15.8 

23.619 

22.741 

0.570 

7.500 

1.148 

92.  14 

97 . 85 

103. 08 

MOON 

17.  1 

22 . 889 

21 . 923 

0.325 

7.  500 

1.126 

109.35 

115.88 

103. 07 

MOON 

24.5 

23 ! 031 

22 . 066 

0.328 

7.500 

1.134 

106.30 

1 10.85 

103. 06 

MOON 

3 2 . 5 

23.778 

22.835 

0.535 

7.500 

1.  162 

89.56 

92.68 

103. 04 

MOON 

46.  0 

23.378 

22.477 

0.549 

7.50O 

1.  150 

98 . 57 

100.99 

1 03 . 03 

MOON 

cj  ? o 

22. 997 

22.196 

0.385 

7. 500 

1 . 138 

107.80 

110.17 

103. 02 

MOON 

56 . 7 

23. 101 

22.310 

0.426 

7. 500 

1.  141 

105.25 

107.47 

103.01 

MOON 

57.  1 

22. 830 

22.001 

0.423 

7.500 

1.  133 

112. 10 

114.40 

ERROR  50  IN  LINE  3244  ^ VT’AJ'  P • 

TO  *fSM*T  ^ 
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0 RW  ■ 1 LOAD , 2 AUTO  l2=DELl  4G-'T(  = NC>:  0 
EEL : RUN/SET  ( 0=EX  I T :■  ? 1 03 . 08 
DEL:  RIJN/SEH0=EXIT>?0 


0 RW, 1LDRB 
TEMPYFX  = N i_: : 7 fa 
DEW  FT  < F > ( =NC) : 69.3 
REWORK  #<  =HC ) : 14.12 


? 1 4 . 13 


TftFE  66.  1 


data 


MBS  IB. 119*  REWORK  <D1-F16>  T4-F12 


REWORK  14.13 


NBSlfi.  09  LOADER  <D1-F0>  T2-F0>  X.27*  <Dl-4>  T2-4  (78  1 1 15  7.20) 


RUN  1 

A H / T S C - 5 4 #3  W a h i a w a , H a w a 1 1 

FRI:  1980  FEB  8 

7.500  GHz,  18.0  Ft  DISH 

tor  osep  /v  zesviTS 


RUN-SET 

STAR  I1 

FI  F '■■■' 

G/T 

G/T  A 

ant  HPBW 

FREQ 

Y-f  ac 

NEF 

NUF 

103. 05 

MOON  l 

k - 5 5 7 4 1 

25.037 

24. 107 

0. 702 

7.500 

1.218 

66 . 78 

69. 05 

2.06 

MOON  \ 

1 8 J 

20.937 

20.254 

0. 099 

7.500 

1.082 

173.30 

179.54 

102.07 

MOON  1 

15. 8 

23.619 

22.741 

0.570 

7.500 

1 . 148 

92.14 

9 7 . 8 5 

103.08 

MOON 

22.889 

21.923 

0.325 

7.500 

1 . 126 

109.35 

115.88 

103. 07 

MOON 

24  !~5 

23.031 

22.066 

0.328 

7. 500 

1.134 

106.30 

110.85 

103.06 

MOON 

3 3 ■ 5 

23.778 

22.835 

0.535 

7.500 

1 . 162 

89.56 

92. 60 

103.04 

MOON 

46. 0 

23.378 

22.477 

8.549 

7.500 

1.150 

98.57 

1 80 . 99 

1 03 . 03 

MOON 

52.  3 

22.997 

22. 196 

0.385 

7. 500 

1.  138 

107.80 

1 10.  17 

103.02 

MOON 

56.7 

23. 101 

22.310 

0.426 

7.500 

1.141 

105.25 

107.47 

103.01 

MOON 

57.  1 

22 . 830 

22.001 

0.423 

7.  500 

1.  133 

112.10 

114.40 
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TAPE 

NBS1C 


60.1  data  3 


HBS1D.118*  REWORK 


< D 1 - F 1 6 T4-F12 


REUORt  14.12 


.38  MEftS  <D1-F14>  T3-F 1 2 ■>  X.24b>  JPW.-'WCD 


(78  1115  0.23) 


RUN  183 


AN-  TSC-54  #3  Wahiawai Hauai i 

FRI:  1980  FEB  8 

7.500  GHz*  18.0  Ft  DISH 


# F'TS  = 8 


G TCdB) 
G T ( dB ) 


23.0498  +-  0.3685)  + 

23.4529  +-  0.3562)  + 


0.07455  +-  0.1 3740 )*CSC  L 
-0 . 00663  +-  0 . 00773 ) *ELEV 


G TfiCdB) 
G T fl  ( dB ) 


22.2513  +-  0.3649)  + 

22.4473  + - Ei.3610)  + 


0.03274  +-  £i . 1 3607  )*CSC  L 
-0 . 00342  +-  0 . 00783 )*ELEV 


ant  HPBW ( de? > = ( 0.4440  +-  0.1055) 

ant  HPBW(d«-9)  = < 0.4424  +-  0.1056) 


- 0 . 0 0 0 59  + - 0 . 0 3 9 3 6 ) * C S C L 
0 . 0000 1 +-  0 . 00229 ) *ELEV 


Y-f actor 
Y-f actor 


1 . 1445  +-  0.0121 ) + 

1.1415  +-  0.0123)  + 


-0.00149  +-  0. 00453 )*CSC  L 
-0.00000  +-  0. 00027 )*ELEV 


NEF(kFU) 
WEF ( k FU ) 


107.1880  +-  8.6004)  + 

95.7766  +-  8.2566)  + 


-2.22051  +-  3 . 28687 ) *CSC  L 
0.181 82  +-  0.1791 3 )*ELEV 


NUF(kFU) 

HUF(kFU) 


107.4310  +-  8.9393)  + 

102.8890  +-  8.7997)  + 


-0.56308  +-  3 . 33325 ) *CSC  L 
0.08982  +-  0.  19091  )*ELEV 
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i>  ro  ro  ro 


TAPE  60. 1 


d o.  t,  pi 


NBS1D.  118* 


REWORK 


<D1-F16>  T4-F12  REWORK  14.12 


NBS1C.38  MEAS  <D1-F14>  T3-F11 


X . £ 4 b y JPW/WCD 


(78  1115  0.24) 


A N T S C - 5 4 #3  W a h i o.  w a > H a w a i i 

FRI:  1980  FEB  8 

7.500  GHz > 18.0  Ft  DISH 


RIJN  103 


TEMP 
76.5  F 


. = FIT 
> M = MOON 


HEW  F'T . 
69.3  F 


WATER  DENS 
17.7  <3iv>'iT3 


CLOUD  COVER  WIND 

2 O f'iph 


REL  HIJMD 

# = CAS  An  0 = CYG  A-  0 = TAIJ  A-  + = OR  I A ■ * = SUN 


NEF (kFU> 


FIT  TO  8 DATA 
=(  107.1880  +-  8.6004)  + ( -2. 


89 . 600 


ELEV 

15 

15.8 
17.  1 
0 

4.5 

Cj 

J0 


40 

45 

46.0 

50 


~i  t- . ( 

57.  1 


S0ti 


98. 600 

i ....  i 


103. 400 


108. 200 
i ....  i . . 


2051  +-  3.20687>*CSC  L 
113.000 


CUNIT=  0.4800) 
VALUE  RIJN  'SET 
98.6086+-  27.761 
92.1352  102.07 

1 0 9.34 6 0 1 0 3 . 0 8 

100. 6957+-  22.269 
106.2990  103.07 

101. 9338+-  20.417 
102. 7470+-  20.013 
89.5622  103.06 

103. 3167+-  20.150 
1 03 . 7335+-  20 . 467 
104. 0477+-  20.822 
98.5703  103.04 


TABtr 
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MBS IB. 118* 


REWORK  <D1-F16>  T4-F12 


REWORK  14.12 


TAFE  60.1  do. to.  3 


HBS1C.3S 


MEflS  <D1-F14>  T3-F12) 


X.24bv  JPW/WCH 


(78  1115  0. 31 > 


-10- 


RIJH  103 


AN  TSC-54  #3  Wo.hia.wo. > Hawai  i 

FRI:  1980  FEB  8 

7.500  GHz.  18.0  Ft  DISH 


TEMP  DEW  FT.  REL  HUMD  WATER  DEHS  CLOUD  COVER  WIND 

76.5  F 69.3  F 78.5  *.  17.7  grv'f'i‘f'3  2 0 nph 


- = FIT  # = CAS  A.  C“  = CYG  A.  0 = TAU  A.  + = OR  I A.  * = SUN 

. M = MOON  . 


FIT  TO  8 DATA 

HUF(kFU)  =(  107.4310  +-  8.9393)  + ( -O. 56380  +-  3.33325)*CSC  L 


ELEV 

92. 000 

i 

96.S0O  101.6O0 

_ !___.  I_  . . 1 . . 

106. 400 

i . . . i . . . 

111. 200 
1 1 1 

116.000  <UNIT=  8 
. . . . i VALUE 

. 4800 > 
RIJN-  SET 

15 

15.8 

17.1 

30.221 

102.07 

103.08 

M 

97.8510 
M 115.8808 

24.5 

. 

M 

110. 8450 

103. 87 
21.447 
28. 887 
103.86 
28 . 968 
21 . 249 
21.592 
103.04 
21 . 923 
1 03 . 83  ^ 

•32.5 

M 

• 

92.5989 

40 

45 

4 6 . 0 

M 

100.9918 

52. 3 

M 

110.1710 

5 . T7 
57.  1 

1 

. 1 . . . 1 . 

!m 

i . . . T i . _ 

1 1 _ 1 

107.4700  « 
M 1 14.4040/ 

l 

103.01 

/Mtit/oes  all 

EM  ©A 

A 3 A»src  P /V  LATH  T A U€ 
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TAPE  68.1  data  3 NBS1B.118*  REWORK  <D1-F16>  T4-F12  REWORK  14.12 


.38  HE ft 8 

< B 1 -F 1 4 > T3-F12;  X.24bv  JPW/WCB 

<78  1115  0. 

,37) 

-11- 

RUN  103 

fiN/TSC-54  #3  Wahi awa ; Hawa i i 

FRI : 1980  FEE  8 

7.500  GHz;  18.0  Ft  DISH 

TEMP 
76.5  F 

BEW  FT.  REL  HUMB  WATER  BENS 

69.3  F 78.5  17.7  siv'mTS 

CLOUD  COVER 

WINB 

0 m P h 

. = FIT  # = CFiS  ft;  C«  = CYG  ft;  0 = TfilJ  ft;  + = OR  I ft;  * = SUN 

; M = HO ON  ; 


FIT  TO  8 BfiTft 

G/T < dE > =<  23.0498  +-  0.3685)  + < 0.07455  +-  0.  13740>*CSC  L 


ELEV 

15 

15.8 
17.  1 
20 

24. 5 

O cr 

30 

"<  c- 

35 

40 

45 

4 6 . 0 
50 


57.  1 


22.000  22.400  22.800  23.200  23.600  24.000  (UNIT=  0.0400) 

! ! ! ! i ! ! ! ! !....!  VALUE  RUN/SET 

I , 23.3379+-  1.159 

H 23.6192  102.07 

M . 22.8890  103.08 

I . 23.2678+-  0.897 

M 23.0307  103.07 

I . 23 . 2262+-  0 . 80S 


I . 23.1 989+-  0.787 

. M 23.7776  103.06 

I . ! 23.1 798+-  0.790 

j . ! 23.1 658+-  0.802 

I . ! 23. 1 552+-  0.817 

. M 23.3784  103.04 

i . 23.1471+-  0.830 
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TAPE  60.1  do. to.  3 HBS1D.11S*  REWORK  <D1-F16>  T4-F12  REWORK  14.12 
HBS1C.38  ME  ft  S’  < H 1 - F 1 4 > -T3-F12,  X.24bv  JPW-'WCD  <78  1 1 15  0.43) 


RUN  103 


fiH  TSC-54  #3  Wo.hiawQiHo.wo.ii 

FRI : 1980  FEE  8 

7.500  GHz>  18.0  Ft  DISH 


TEMF 
76.5  F 


= FIT 
M = MOON 


DEW  FT. 
69.3  F 


REL  HUM D 
78.5 


WATER  DENS  CLOUD  COVER  WIND 
17.7  ■on. ■■•'pit 3 2 0 piph 


# = CftS  ft>  C"  = CYG  ft> 


TfiU  A;  + = OR  I ft*  * = SUN 


ELEV 

15 

15.8 
17.  1 

20 

24 . 5 
30 


40 

45 

46 . 0 
50 


>7.  1 


K'TflCdE: 

21 . 000 
i 


FIT  TO  8 DATA 

22.2513  +-  0.3649)  + ( 0.03274  +-  0.13607)*CSC  L 


L'l  . 400 


21 . 800 
i . i 


22. 200 
i . . i 


22.600 
i . . i 


23.000  <UNIT=  0.040O: 


M 

i 

M 

VALUE  RUN.  SET 

22.7412  102.07 

21.9230  103.08 

22.3470+-  0.894 

22.0657  103.07 

22.3288+-  0.806 

22. 3168+-  0.785 

22.8346  103.06 

22.3084+-  0.788 

22.3022+-  0.800 
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o co  co  ro  ro  ro 


NBS1D.118*  REWORK  <D1-F16>  T4-F12 


REWORK  14.12 


TAPE  60.  1 do.t, o.  3 


NBS1C. 38 


HE AS  < D 1 -F 1 4 > T3-F12,  X. 24bv  JPW  WCD 


1115  0.49) 


ft N TSC-54  #3  W a h l a w a?  Ha w a l i 

FRI:  1930  FEB  8 

7.500  GHz , 18.0  Ft  DISH 


TEMP 
76.5  F 

DEW  PT. 
69.3  F 

REL  HU HD 

WATER  DENS 
17.7  si, /fits 

CLOUD  COVER 
2 

WIND 

0 i'iph 

. = FIT 
- M = MOON  - 

# = CAS  ft, 

C«  = CYG  ft, 

0 = T ftU  R > + = 

ORI  ft,  * = SUN 

FIT  TO  8 DATA 

ant  HF’BW(de<3)  = < 0.444O  + - 0.  1055)  + ( —0.00069  +-  0. 03936 )*C-SC  L 


ELEV 

15 

15.8 

17.1 

0 

4.5 


0 


40 

45 

46 . 0 
50 


57.  1 


0 . 320  0 . 370  0 . 420  0 . 470  0 . 520 


0 . 570  < UN  I T=  0 . 0050 ) 
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TAPE'  60. 1 data  3 NBS1D.118*  REWORK  <D1-F1 6>  T4-F12  REWORK  14.12 

MBS 1C. 38  HERS  <D1-F14>  T3-F12,  X.24bv  JPW/'WCD  <78  1115  0.50) 

-14- 


RN-  TSC-54  #3  Wahiawa*  Ha.wai  i 

FRI:  1986  FEE  8 

7.500  GHz > 18.0  Ft  DISH 


RUN  103 


TEMP 


= FIT 
M = MOON 


DEW  FT. 
69.3  F 


REL  HIJ (ID 
78 . 5 


WRTER  DENS 
17.7  gri/eit3 


CLOUD  COVER  WIND 

2 0 iviPh 


# = CHS  A<  0 = CVG  fi«  0 = TfiU  flj  + = OR  I fl. 


= SUN 


t -t act o r 


1 . 100 


ELEV 

15 

1 5 . 8 
17.  1 
20 

24.5 

30 


40 

45 

46. 0 


57.  1 


i 


FIT  TO  8 HATH 

1.1445  +-  0.0121)  + < -0.00149  +-  0. 00453 )*CSC  L 


1.120 

i . 


1.140 


1 . 160 
i . . 


1.180 
. . i . . 


1 . 200 


I 


1 

1 

| 

M 

i 

1 

! / f " 

_M r ONLf 

M 

M 

. ...  i ....  i ....  i . . . i 

1 

i i . . . i . . . i . . . . i . 

( UN  I T=  0.00 
VALUE  RUN 
1.1 387+-  0. 

1.1482  102. 

1.1263'  103. 

1.1401+-  0. 

1.1340  103. 

1.1 409+-  0. 

1.1415+-  0. 

1.1617  103. 

1.1419+-  0. 

1.1 422+-  0. 

1424+-  0. 

lTwa?^ J£3 

0 

103. 
1.1 427  + - 0. 

1.1413  103. 

1.1327 


2U  : 


SET 

029 

07 

08 
018 
07 
014 

013 
06 

014 

015 

0 1 6 

iu- 


103. 
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TAPE  68.1  data  3 NBS1D.118*  REWORK  <B1-F16>  T4-F12  REWORK  14.12 

NBS1C.3S  MEAS  <B1-F14>  T3-F12?  X.24bv  JPW/WCD  (78  1115  0.50) 


■15- 


RUN  103 


AN'TSC-54  #3  Wahiawa? Hawai i 

FRI:  1980  FEB  8 

7.500  GHz.  18.0  Ft  DISH 


TEMP  DEW  PT.  REL  HUMD  WATER  BENS  CLOUD  COVER  WIND 

76.5  F 69.3  F 78.5  V.  17.7  2 0 iviph 


FIT  TO  8 BATH 

= < 107.1880  +-  8.6004)  + ( -2.22051  +-  3. 20687>*CSC  L 

+ = LINEAR  CONTRIBUTION 

ftU/nouT  PCTtAA/A/eO  FAOA  4 IfCL’F  HBAIOM  Htvr 

NEF(KFU)  = 10O.696  +-  0.87  dB  ( 22.  1 7.)  7.500  GHZ 


E-Kl  E-K2  E-K3  E-K4  E-K5  E-K6  E-K7  +E-K8  +E-K9  E-TA 

1.6  4.8  0.0  0.1  12.5  0.1  2.8  2.1  0.0  0.6"; 

################################################################################ 
G(dE)  G-hPbu  T(K)  Ta(K)  V-f ac  HF'BWerr  data  Tit  c(l-K2)  bright  ef' f AREA 
. 51.21  51.17  622.  1 769.1  1.1526  23.86  7.  0.505  dB  172.067.  8.62  K 16.8 

IO*U,TG  C7  T HI  Y 2>2-  HI  Pi  39 

2. 30=A2  0. 20=C9  0 . 1 = D 1 0. 44238=N<21 ? 1 > 460=TC1?  9)  0.9592=J1  6=H0 

0. 75=D8  0.  18=B9  0.  1=C8  0. 10555=N<21 ? 3)  15=T(1,11)  1.0098=02 

ant  HF’BW  = 0.44405  +-0.000694  CSC  L = 0.4420  (L  = 20.0  deg) 


NEFOFU) 

ioutar  a une 


f 20. Udegs j 


E-S 

14.41 


E-F 

0.0 


E-Y 

0.8 


K1  K2  K3  K6  K8  K9  K APR-ef  f R-eff 
0.969  0.675  1.000  1.000  0.973  0.998  0.635  0.7042  0.98 


S(FU)  X i ( K ) 

24590.4  7. 189E-04 


SITE  ELEV  oxy  attn  water  attn  zenith  attn  REFR  #1  REFR  #2  ant -D I AM 
0.152  kn  0.03142  dB  0.0154  dB'dens  0.0468  dB  1.285  0.0130  18.0  ft 

################################################*?############################### 


25. 0deg! 


NEF(kFU)  = 101.934  +-  0.79  dB 


20.0 


7.500  GHZ 


E-Kl 

1.3 


E-K2 

4.8 


E-K3 

0.0 


E-K4 

0.  1 


E-K5 

9.6 


E-K7  +E-K8  +E-K9 
2.8  1.7  0.0 


E-TA 

0.67. 


G/Ta  fit  t/ALOt  AA/fi  ITVj  CfT**  SHAtt  CoAAHftioa)  FACTOR 




U-hpbw\  T(K)  Ta(K>*'  Y-tac  HPBWerr 
5.1 . 17  / 625 . 5 769.1  1.1530  23.86  7; 

vw.  *n  Q*  £«^fl7/CI*reuo*- 

0. 20=C9  0. 1 =D 1 0. 44238= N( 21?  1)  460=T(1?  9) 

0. 1 8=D9  0. 1=C8  0 . 10555— N( 21? 3 ) 15=T< 1 » 1 1 > 


######################## 
data  f l t*v. ( 1 -K  J T) b r i ght  effAREA 
0.397  dBU72.067;y  7.00  K 16.7 


6=N0 


ant  HF’BW  = 0.44405  +-0.000694  CSC  L = 0.4424  (L  = 25.0  deg) 


K1  K2  K3  K6  K8  K9  K 
0.975  0.676  1.000  1.000  0.978  0.999  0.643 


APR-ef f 
0.7030 


R-eff 

0.98 


S ( F U ) 
24590.4 


X i ( K ) 

’.  280E-04 


SITE  ELEV  oxy  attn  water  attn  zenith  attn  REFR  #1  REFR  #2  ant-DIAM 
0.152  k n 0.03142  dB  0.0154  dB/dens  0.0468  dB  1.285  0.0130  18.0  ft 

it############################################################################### 
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30. 0de g : 


NEF (kFU)  = 102.747  +-  0.77  dE 


19.5  7)  7.500  GHZ 


E-S 

14.47. 


E-F  E-Y  'E-Kl 

0.0  0.8  1.1 


E-K2  E-K3  E-K4 

4.8  0.0  0.1 


E-K5  E-K6  E-K7 

9.2  0.1  2.8 


+E-K8  +E-K9  E-Tfl 
1.5  0.0  0. 6?: 


G(dB>  G-hpbw  TOO  TaOO  Y-f'ac  HPBWerr  do  it. a fit  c<l-K2)  bright  ettAREA 
51.18  51.16  627.7  769.1  1.1533  23.86  7 0.378  dB  172.067  5.92  K 16.7 


2.30=02  0. 20=C9  0.1=m  0. 44238=10  21 , 1 > 460=T<1j  9)  0.9719=J1  6=H0 

0. 75= D8  0 . 1 8=D9  0.1 =C8  0. 10555=N<21 , 3>  15=T< 1 » 1 1 > 1 . 0073=C2 

ant  HF'BW  = 0.44405  +-0.000694  CSC  L = 0.4427  (L  = 30.0  deg) 

K 1 K2  K3  K6  K8  K9  K APR-eff  R-eff  S<FLO  XiOO 
0 . 979  0.676  1 . 000  1 . 000  0.981  0 . 999  0 . 648  0 . 7022  0 . 98  24590 .4  7 . 340E-04 


•SITE  ELEV  oxv  at  tn  water  attn  zenith  attn  REFR  #1  REFR  #2  ant -I'  I AM 
0.152  k ivi  0.03142  dE'  0.0154  dEt  dens  G . 0468  dB  1.285  0.0130  18.0  ft 

################################################*###############*############### 


3 5 . 0 d e g '• 


MEF (kFU)  = 103.317  +-  0.77  dB 


( 19.5  JO 


7.500  GHZ 


E-S 

14.47 


E-F  E-Y  E-Kl 

0.0  0.8  1.0 


E-K2  E-K3  E-K4 

4.8  0.0  0.1 


E-K5  E-K6  E-K7 
9.6  0.1  2.8 


+E-K8  +E-K9  E-TA 

1.3  0.0  0.67 


G(dE‘>  G-hpbw  TOO  TaOO  Y-f ac  HPBWerr  data  fit  c(l-K2)  bright  ef f AREA 
51.17  51.16  629.2  769.1  1 . 1535  23 . 86  7 0 . 396  dB  1 72 . 867  5.17  K 16.6 


2. 30= A2  0. 20=C9  0. 1=B1  0. 44238=NC21 * 1)  46G=T(1,  9>  8.9755=J1  6=N0 

0.75=158  0.  18=159  0.  1=C8  0.  10555=N<21  j 3)  1 5 = T < 1 ? 1 1 > 1.0G67=C2 


ant.  HF'BW 


0.44405  +-G.000694  CSC  L = 0.4428  (L  = 35.0  de 


K 1 K2  K3  K6  K8  K9  K 
0 . 98 1 8 . 676  1 . 000  1 . 000  8 . 983  0 . 999  0 . 652 


APR-eff 
0 . 7 0 1 6 


R - e f f 
8.98 


S'  FLO 
24590.4 


XiOO 
? . 3 8 2 E — 0 4 


SITE  ELEV  o>;y  attn  water  attn  zenith  attn  REFR  #1  REFR  #2  ant -B I AM 
0.152  k ft  8.03142  dB  0.0154  dB  dens  0.0468  dB  1.285  0.0130  18.0  ft 

################################################*»############################*## 


40 . 0de g • 


HEF (kFU)  = 103.733  +-  0.78  dB 


19.7  7)  7.580  GHZ 


E-S 

14.47 


E-F  E-Y  E-Kl 

0.0  8.8  0.9 


E-K2  E-K3  E-K4 

4.8  0.0  0.1 


E-K5  E-K6  E-K7 

10.3  0.1  2.8 


+E-K8  +E-K9  E-TA 
1.1  0.0  0.67 


################################################**############################### 
G < dB ) G-hpbw  TOO  TaOO  Y-f  ac  HPBWerr  data  tit  c<l-K2)  bright  eft  AREA 
51.16  51.15  630.4  769.1  1.1537  23.86  7 0.424  dB  172.067  4.62  K 16.6 


2. 30=A2  0. 20=C9  0 . 1 =B 1 0. 44238=NL21 > 1 > 460=T<1.  9)  8.9781  = J1  6=N8 

0.75=DS  0. 18=D9  0 . 1 = C 8 0. 1 8555=1021 » 3)  1 5=T  < 1 » 1 1 > 1.0862=C2 


ant  HF'BW  = 0.44405  +-0.000694  CSC  L = 0.4430  <L  = 40.0  deg 


K 1 K2  K.3  K6  K8  K9  K APR-eff  R-eff 

0 . 983  0 . 676  1 . 000  1 . 008  0 , 985  0.999  8.655  8.7812  0 . 98 


St  FLO  XiOO 
24590.4  7.413E— 04 


SITE  ELEV  oxv  attn  water  attn  zenith  attn  REFR  #1  REFR  #2  ant -B I AM 
0.152  k ci  8.03142  dB  0.0154  dB/dens  0.0468  dB  1.285  0.0130  18.0  ft 

a##*############################################################################ 
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45.0deg:  NEF(kFU)  = 104.048  +-  0.79  dB  < 20.0  X)  7.500  GHZ 

E-S  E-F  E-Y  E-Kl  E-K2  E-K3  E-K4  E-K5  E-K6  E-K7  +E-K8  +E-K9  E-Tft 

14.41;  0.0  0.0  0.8  4.8  0.0  0.1  11.0  0.1  2.8  1.0  0.0  0.61; 

################################################################################ 

GCdB)  G-hPbw  T(K>  TaCK)  Y-fo.c  HF'BWerr  data  tit  cCl-K2>  bright  eft  ARE  R 

51.16  51.15  631.2  769.1  1.1568  23.86  X 0.451  d E'  172.061;  4 . 2 0 K 16.6 


2.30  = R2  0.20=C9  0 . 1 = D 1 0. 44238=NC 21 » 1 ) 460=TC1>  91  0.9801  = J1  6=H8 

0. 75=D8  0.18=Ii9  0.1=08  0. 10555=NC21 > 3)  15=T<1,11>  1.0059=02 


ant  HF'BW  - 0.44405  +_0. 000694  CSC  L = 0 . 4431  CL  = 45.  Ei  deg) 


K 1 K2  K3  K6  K8  K9  K RPR-eff'  R-eff 

0.985  0.676  1.000  1.000  0.987  1.000  0.657  0.7009  0.98 


SCFU)  X i C K) 

24590.4  7. 437E-84 


SITE  ELEV  oxy  attn  water  attn  zenith  at  tn  REFR  #1  REFR  #2  ant-BIRM 
0.152  k ivi  0.03142  dB  0.0154  dB/'dens  0.0468  dB  1.285  0.0130  18.0  ft 

################################################################################ 


50. 

, 8deg i 

NEF  > 

4.  FID 

= 104. 

,289  +-  0, 

.88 

dB 

C 20.3  /. ) 7. 

508  GHZ 

E- 

-S 

E-F 

E-Y 

E-Kl 

E-K2 

E-K3 

E-K4  E-l 

/ c; 

E-K  6 

E-K7  +E-K8  +E-K9 

E-TR 

14. 

41; 

0. 0 

0.8 

0.7 

4.8 

0.0 

0.1  11 

.6 

0.  1 

2.8  1.0  0 . 0 

0 . 61. 

G < d 8 ) G - h p b w T < K ) T a < K ) Y - f a c H P B W e r r d a. t a f i t c t 1 - K 2 ) b r i 9 h t ef  f RREft 

51.15  51.15  631.9  769 .1  1.1539  23.86  1;  0.475  dB  1 72 . 061;  3 . 88  K 1 6 . 6 


2. 30=H2  0 . 20=C9  0 . 1 =D 1 0. 44238=N<21 » 1 > 460=TC1>  9)  0.9816*J1  6=N0 

0.75=H8  0. 18=B9  0.1=08  0. 10555=N<21 . 3)  15=T<1,11>  1.0056=02 


ant  HF'BW  = 0.44405  + - 0 , 000694  CSC  L = 0.4431  CL  = 50.0  deg) 


K1  K2  K3  K6  K8  K9  K RPR-eff  R-eff 
0.986  0.676  1.000  1.000  0.988  1.000  0.658  0.7006  0.98 


SCFU)  XiCK) 
24590.4  7 . 455E-04 


SITE  ELEV  oxy  attn  water  attn  zenith  attn  REFR  #1  REFR  #2  ant-BIRM 
0.152  k«  0.03142  dB  0.0154  dB/'dens  0.0468  dB  1.285  0.0130  18.0  ft 


j.  0deg: 


WCHlzST  ElEUAT'o/u  rAifl/Tovr  i*>  T>ETEtto/A/CO 

V*  t'OAJ  (J$££>  /V 

NEFCkFU)  = 104.477  +-  0.81  dB  < 20.5  l;> 


7.500  GHZ 


E-S  E-F  E-Y  E-K 1 E-K2  E-K3  E-K4  E-K5  E-K6  E-K7  +E-K8  +E-K9  E-Tfi 

14.41;  0.0  0.8  0.7  4.3  0.0  0.1  12.1  0.1  2.8  8.9  0.0  0. 6'. 


################################################*############################### 

GCdB)  G-hpbw  T <K)  To. CIO  Y-f'ac  HF'BWerr  data  fit  c<  1-K2)  bright  ef'f'RREfl 
51.15  51.15  632.4  769.1  1.1539  23.86  X 0.495  dB  172.861;  3.63  K 16.6 


2. 30=R2  0.28=09  0 . 1 =D 1 0. 44238=M<21 . 1 > 460=TC1j  9)  0.9828=J1  6=N0 

0 . 75=B8  0.  18=E9  0.1=08  0. 10555=HC21 » 3)  1 5=T  C 1 , 1 1 > 1.0854=02 


ant  HF'BW  = 0.44405  +-0.000694  CSC  L = 0.4432  CL  = 55.0  deg) 


K 1 K2  K3  K6  K8  K9  K RPR-eff  R-eff 
0.987  0.676  1 . 080  1 . 800  8 . 988  1 . 000  0 . 660  8 .7005  0 . 98 


SCFU) 

24598.4 


Xi  CIO 


7 . 4 6 8 E - 0 4 


SITE  ELEV  oxv  attn  water  attn  zenith  attn  REFR  #1  REFR  42  ant-BIRM 
0.152  km  0.03142  dB  8. 8154  dB/dens  0.0468  dB  1.285  0.8130  18.8  ft 
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TAPE  60.1  data  3 NBS1B.118*  REWORK  <B1-F16>  T4-F12  REWORK  14.12 


.38  ME AS 

<B1-F14>  T3-F12,  X.24bv  JPW/WCB 

(78  1115  ( 

5.54) 

-16- 

RUN  163 

AN/TSC-54  #3  Wahiawo.jHawo.ii 

FRI:  1986  FEB  8 

7.500  GHz j 18.0  Ft  BISH 

TEMP 
76.5  F 

BEW  F'T . REL  HUMB  WATEfe  BENS 

69.3  F 78.5  * 17.7  gn/mtS 

CLOUD  COVER 

WINB 
6 mph 

FIT  TO  8 BflTfi 

NUF(kFU)  =C  107.4310  +-  8.9393)  + ( -0.56300  +- 

+ = LINEAR  CONTRIBUTION 


3 . 33325 >*CSC  L 


26. Ode 9! 


NUFCkFU)  = 105.785  +-  0.88  dE: 


22. 4 ■-.) 


7.506  GHZ 


E-S 

14.4"-; 


£-F  E-Y  £-Kl  E-K2  E-K3  E-K4  E-K5  E-K6  E--K7  +E-K8  +£-K9  E-TA 

0.0  6.8  1.6  4.8  0.6  0.1  12.9  0.1  2.8  2.1  6.0  6.6’/. 


a#########################################*#####*###########################*### 

G(dB)  G-hPbw  TOO  To. OO  Y-fac  HF'BWerr  data  fit  c<l-K2)  bright  ef'fAREA 
51.21  51.17  622.1  769.  1 1.1526  23.86  X 6.523  dB  172.06);  8.62  K 16.8 

2. 36= A2  6.20=09  6. 1=B1  0. 44238=N(21 > 1 ) 460=T<1>  9)  0.9592=J1  6=N0 

6. 75=B8  6. 18=B9  0.1=08  0. 10555=N<21 * 3)  15=T(1.11>  1.0694=02 

ant  HF'BW  = 0.44405  +-0. 000694  CSC  L = 0.4420  (L  = 26.6  de  g) 


K 1 K2 

6.969  0.67' 


K3  K6  K8  K9  K APR-eff 
1,000  1.000  0.973  £i.998  6.635  6.7642 


R-ef  f 
6.98 


S(FU)  >’.i  OO 
24596.4  7. 189E-64 


SITE  ELE\ 
8.152  kc 


o x y a 1 1 n w a ter  a 1 1 n z e n i t h a 1 1 n 
6.03142  dB  6.0154  dB-dens  0.0468  dB 


REFR  #1  REFR  #2  ant -B I AM 
1.285  0.6130  18.0  ft 


#######«##*#####################################*#######################*####### 


25. 6deg: 

E-S 
14.4); 


NUF(kFU)  = 106.099  +-  0.86  dB 


26.2  );> 


7.560  GHZ 


E-F 

0.0 


E-Y 

6.8 


E-K 1 
1.3 


E-K2  E-K3 
4.8  6.0 


E-K4 

0.  1 


E-K5 

10.0 


E-K6 

0.  1 


E-K7  +E-K8  +E-K9  E-TA 
2.8  1.7  0.6  0.6). 


a###############################################*############################### 

G(dB)  G-hpbw  T(K)  Ta<IO  Y-fac  HF'BWerr  data  fit  c<l-K2)  bright  ef f AREA 
51.19  51.17  625.5  769.1  1.1530  23.86  X 0.411  dB  172.06*  7.06  K 16.7 

2. 30=A2  6.20=09  0. 1=B1  6. 44238=N(21 . 1 ) 466=T<1j  9>  6.9669=J1  6=N0 

6. 75=BS  6. 18=B9  0.1=08  0. 10555=NC21 , 3)  15*T<1> 11)  1.0679=02 

ant  HF'BW  = 6.44465  +-0.060694  CSC  L = 0.4424  <L  = 25.6  deg) 


K1  K2  K3  K6  K8  K9  K AF'R-eff  R-eff 
6.975  6.676  1.000  1.000  0.978  0.999  0.643  0.7630  0.98 


S(FU)  XiOO 
24596.4  7. 286E-64 


SITE  ELEV  oxy  attn  water  attn  zenith  at  tn  REFR  #1  REFR  #2  ant -B I AM 
6.152  km  6.03142  dB  0.6154  dB'dens  6.0468  dB  1.285  0.6136  18. 0 ft 
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do. to.  3 


MBS  ID. 118*  REWORK  <D1-Fl6>  T4-F12 


REWORK  14.12 


TAPE  60. 1 

HBS1C.38  MEflS  <B1-F14>  T3-F12,  X.24bv  JPW/WCD  (78  1115  0.58) 


-17- 

RUN  163 

AN/TSC-54  #3  Wa.hio.wa , Hawa.i  i 

FRI:  1980  FEB  8 

7.500  GHz,  18.0  Ft  DISH 


TEMP  DEW  PT.  REL  HU MB  WATER  DENS  CLOUD  COVER  WIND 

76.5  F 69.3  F 78.5  7.  17.7  gf-i.'>iT3  2 0 MPh 


FIT  TO  8 DATA 

G/T (dB)  =(  23.0498  +-  0.3685)  + < 0.07455  +-  0. 13740)*CSC  L 

+ = LINEAR  CONTRIBUTION 


20. Odeg:  G/T  (dB)  = 23.268  +-  0.90  dB  ( 23.0  7.500  GHZ 

c E-S  E-F  E-Y  E-Kl  E-K2  E-K3  E-K4  E-K5  E-K6  E-K7  +E-K8  +E-K9  E-TA 

14.37.  0.0  0.8  1.6  4.8  0.0  0.1  13.9  0.1  2.8  2.1  0.0  0.6‘i 

################################################################################ 
G(dB)  G-hr-'bw  T(K)  To. (K)  Y-foc  HPBWerr  data  fit  c(  1-K2)  bright  ef f AREA 
51.21  51.17  622.1  769.1  1.1526  23.86  7.  0.566  dB  172.067.  8.62  K 16.8 


2. 30= A2  0. 20=C9  0. 1=D1  0. 44238=N(21 , 1 ) 460=T(1,  9)  0.9592=J1  6=N0 

0. 75=D8  O. 18=D9  0. 1=C8  0. 10555=N(21 , 3)  15=T(1,11)  1.0000=C2 

ant  HF'BW  = 0.44405  +-0.000694  CSC  L = 0.442O  (L  = 20.0  deg) 


K 1 K2  K3  K6  K8  K9  K APR-eff  R-eff 
0.969  0.675  1.000  1.000  0.973  0.998  0.635  0.7042  0.98 


S(FU)  Xi(K') 
24590.4  7. 189E-04 


SITE  ELEV  oxy  attn  water  attn  zenith  attn  REFR  #1  REFR  #2  ant -D I AM 
0.152  k n 0.03142  dB  0.0154  dB- dens  0.0468  dB  1.285  0.0130  18.0  ft 

################################################################################ 


25.0deg:  G/T(dB)  = 23.226  +-  0.81  dB  < 20.5  7; > 7.500  GHZ 

E-S  E-F  E-Y  E-Kl  E-K2  E-K3  E-K4  E-K5  E-K6  E-K7  +E-K8  +E-K9  E-TA 

14.37:  0.0  0.8  1.3  4.8  0.0  0.1  10.6  0.1  2.7  1.7  0.0  0.67; 

a###############################################*############################### 

G(dB)  G-hpbw  T(K)  To.(K)  Y-fo.c  HPBWerr  data  fit  c- ( 1 -K2 ) bright  ef f AREA 
51.19  51.17  625.5  769.1  1.1530  23.86  7;  0.439  dB  172.067;  7.00  K 16.7 

2 . 30= A2  0. 20=C9  0. 1 =D 1 0. 44238=N(21 , 1 ) 460=T(1,  9)  0.9669=J1  6=N0 

0. 75=B8  0. 18=D9  0.1 =C8  0. 10555=N(21 , 3)  15=T(1,11)  1.0000=C2 


ant  HF'BW  = 0.44405  +-0.000694  CSC  L = 0.4424  (L  = 25.0  deg) 


K1  K2  K3  K6  K8  K9  K 
0.975  0.676  1.000  1.000  0.978  0.999  0.64' 


APR-eff 

0.7030 


R-eff 

0.98 


S(FU)  X i ( K ) 

24590.4  7. 280E-04 


SITE  ELEV 
O. 152  kn 


oxy  attn 
0.03142  dB 


water  attn  zenith  attn 
0.0154  dB-dens  0.0468  dB 


REFR  #1 

1 . 285 


REFR  #2 
0.0130 


ant -D I AM 
18.0  ft 


################################################################################ 
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7.  COMPUTER  PROGRAM  CONSTANTS 


The  meanings  of  the  computer  program  constants  are  listed  in  this  section.  Some  of  the  program 
constants  are  used  more  than  once,  so  the  appropriate  meaning  must  be  deduced  from  the  context  of  the 
program.  For  convenience,  the  simple  program  variables  are  listed  first,  the  matrix  variables  listed 
next,  and  the  defined  functions,  key  function,  flags,  and  multiplex  function  (FNX  functions)  are 
listed  last.  Each  of  the  lists  are  printed  twice,  once  in  alphabetical  order  by  the  variable  name, 
and  once  in  alphabetical  order  by  meaning.  The  use  of  these  definition  lists,  with  the  use  of  the 
cross-reference  lists  included  at  the  end  of  the  program  listings,  makes  it  possible  to  rapidly  locate 
a specific  calculation  within  a program. 

7.1  Variables  List  Alphabetical  by  Variable 

VARIABLES  LIST  by  variable 

for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D.117 


1 

A 

AZIMUTH(deg)  OR  DUMMY 

2 

A$,B$ 

DUMMY 

3 

A(N7) 

SET  DATA:  SEE  MATRIX  LIST 

4 

AO 

REWORK  #,  (d)  MOON  CONST 

5 

A1 

FILTER  #, (d)  MOON  CONST 

6 

A2 

GAUSS  CURVE  FIT  ERROR, X dT 

7 

A3 

ATTN  OF  STD  ATTN  ( abs>l ) , NOT  dB)  =N( 13,10) 

8 

A4,A5,A6 

SYST  CONSTS :PRGM  USES  N( 1 ,4) ,N( 1 ,5) ,N( 1 ,6) 

9 

A8 

RATIO  #1  add/#2  add  uses  N( 18 ,5  or  10) 

10 

B 

HPBW#l(min  of  arc), AS  MEASURED 

11 

B(  I ,J ) 

DUMMY  MATRIX 

12 

BO 

HPBW(minutes)  with  Kanda  correction 

13 

B1 

CODE  FOR  SATELLITE  CARRIER  MEAS  :0=SKY ,1=-F ,2=RCR 

14 

B1 

DECL  OFFSET  (deg) 

15 

B2,B3 

ANTENNA  APERTURE  EFFICIENCY,  ANT  RADIATION  EFF 

16 

B4 

ATMOSPHERIC  BRIGHTNESS  TEMPERATURE,  K 

17 

B5 

T/Ta  ZENITH 

18 

B5 

TEMPERATURE (F) 

19 

B6 

DEW  POINT(F) 

20 

B6 

T/Ta  CSC  COEFF 

21 

B7,B8 

G/T a ( dB)  ZENITH  COEFF, CSC  COEFF 

22 

B8 

P(ONT) ,mW=(F5+F8)/2:  in  C/kT  MEAS 

23 

B9 

ANTENNA  EFFECTIVE  AREA 

24 

C 

DATE,  DECIMAL 

25 

C(I,J) 

G ( I , J ) INVERSE  OR  DUMMY 

26 

CO 

SITE  ELEV  (Km) 

27 

Cl 

C~2/( 8*PI*K*F~2) 

28 

Cl 

SPACE  LOSS 

29 

C2 

ERROR  enhancement  of  NEF,NUF  compared  to  G/T 

30 

C2 

FLAG-5dB  ATTN  IN  NOISE  ADD  PWR  MEAS  :0=N0 , 1=YES 

31 

C3 

FLAG-NOISE  ADD:  0=#1&#2 ,1=#1 ,2=#2 

32 

C4,C5 

SITE:  W.LONG  (deg),  N.  LAT  (deg) 

33 

C6 

GHA  TO  ARIES  0 0 GMT  (hrs) 
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VARIABLES  LIST  by  variable 
for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D.117 


34 

C7 

G via  HPBW  - G via  G/Ta,  dB 

35 

C8 

FILTER  FREQ  (MHz) 

36 

C8 

Y-FACTOR  ERR,% 

37 

C9 

FILTER  BANDPASS(MHz) 

38 

C9 

INSTRUMENTAL  POWER  RESPONSE  ERR ,% 

39 

D 

ANTENNA  DIAMETER(FT) 

40 

D$ 

REMARKS 

41 

D(T6,I) 

DATA  MATRIX:  SEE  MATRIX  LIST 

42 

DO 

SKY  BACKGROUND  ERR,  0.9/FA2 

43 

D1 

STAR  SHAPE  ERR,% 

44 

D2 

HPBW  UNCERTAINTY, % 

45 

D3 

ADDED  NOISE  ERROR, % 

46 

D4 

YEAR , ( d)  day  for  SUN/MOON  FLUX  CALC 

47 

D5 

ANTENNA  POINTING  ERROR  (deg) 

48 

D8 

DIFFUSIVE  ATTENUATION  ERR,% 

49 

D9 

REFRACTIVE  ATTENUATION  ERROR, X 

50 

D9 

no.  of  MEAS  for  MULT  FREQ  ROUTINE 

51 

E 

DAYS  SINCE  1900.00 

52 

E 

EIRP*G/Ta 

53 

E 

HOUR  ANGLE(deg) 

54 

EO 

ATTENUATION dB)  OF  PROGRAM  ATTENUATOR,  TEMPORARY 

55 

EO 

G/T  ERR-FREQ 

56 

El 

EIRP:PWR  no  noise  add  (mW) 

57 

El 

G/T  ERR-ATMOSPHERIC  ABSORPTION 

58 

El 

TIME  OF  STAR  PEAK  (hrs) 

59 

El ,3 ,4 ,E5 

EIRPrPWR  no  add(mW) ,PWR+#1 ,PWR+#2 ,PWR+#1&#2 

60 

E2 

ATTENUATION  dB)  OF  PROGRAM  ATTENUATOR 

61 

E2 

G/T  ERR-STAR  SHAPE 

62 

E2,E3 

MONTH,  DAY 

63 

E3 

EIRP  :PWR+noi se  add  #1  (mW) 

64 

E3 

G/T  ERR-BANDWIDTH 

65 

E4 

EIRP  :PWR+noi se  add  #2  (mW) 

66 

E4 

G/T  ERR-DIFFERENTIAL  SKY  TEMP 
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VARIABLES  LIST  by  variable 

for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D.117 


67 

E5 

EIRP  :PWR+noi se  add  #1  & #2  (mW) 

68 

E5 

G/T  ERR-ANTENNA  POINTING 

69 

E5 

TIME/MEASUREMENT  (hrs) 

70 

E6 

ATTENUATION! dB),  MANUAL  ATTENUATOR 

71 

E6 

G/T  ERR-ANT  POLARIZATION 

72 

E6 

MEASUREMENT  # OF  FIT  GAUSSIAN  CURVE 

73 

E6 

YEARS  SINCE  1977 

74 

E7 

G/T  ERR-SYSTEM  RESPONSE 

75 

E7 

HPBW  FIT  BY  GAUSSIAN  CURVE  TO  DRIFT  CURVE 

76 

E7 

SLANT  RANGE, 10^6  Km 

77 

E8 

G/T  ERR-ATMOSPHERIC  DIFFUSION 

78 

E8 

TIME! hrs)/( ARC  deg) 

79 

E9 

G/T  ERR-ATMOSPHERIC  REFRACTION 

80 

E9 

GHA  TO  ARIES! deg) 

81 

E9 

PWR(mW)  ON  SAT  SIGNAL 

82 

F 

FREQ  OF  MEASUREMENT (GHz) 

83 

F 

RECEIVER  FREQ(MHz) 

84 

F(  I) 

DUMMY  MATRIX 

85 

FO 

FREQ  ZRR,% 

86 

FO 

VALUE  OF  C2  IN  FNW 

87 

FI 

FLAG-GRAPH :0=N0,1=DATA,2=&FIT,3=FIT,4=EXIT 

88 

FI 

FLAG : ( c )0=STAR , 1=SAT; ( b) 1=SUBR0UTI NE  LOADED 

89 

FI 

FLAG :0=PRT  PWR  & VOLTS ,2=GRAPH  PWR  RATIO  (in  E) 

90 

FI 

SPACE  LOSS:  in  C/kT  MEAS 

91 

F2 

FLAG-PRT :0=ALL,1=PR0G  DATA, 2=1 NPUT  ASSUMPS ,3=G/T 

92 

F2 

FLAG:  0= NORMAL, 1=DIFF  PLOT  DATA,2=DIFFPL0T  CUTS 

93 

F2 

FLAG  :0=CSC  fit,  1=LINEAR  fit 

94 

F2 

FLAG :0=N0  AUTO  CHECK, 1=YES  (in  E) 

95 

F2 

P/Pa  for  LOWER  FREQ  ONT : in  C/kT  meas 

96 

F3 

FLAG-SORT  & FIT :1=G/T-ELEV ,2=G/T-CSC,3=DIP-ELEV , 

97 

F3 

FLAG:  0= MANUAL  TEMP ,HUMI DITY , 1=AUT0  TEMP, DEW 

98 

F3 

FLAG :0=XTAL,1=TYPE  IV  bridge  (in  E) 

99 

F3 

FLAG:(b)  l=bypass  trivial  ques, ( e)0=XTAL,l=TYPE 
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VARIABLES  LIST  by  variable 

for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D.117 


100 

F4 

FILE  # OF  N7=l,  STARTING  M(40,l) 

101 

F4 

FILE  LOAD  # 

102 

F4 

FLAG  IN  E : 1=SIMU LATE D NOISE  ADD,2=EARTH  TERMINAL 

103 

F5 

FLAG  IN  D:1=PRGM  REWORK 

104 

F5 

FLAG  IN  E : 1 = NO I SE  ADD  #1  WORKS 

105 

F5 

FLAG-PROGR  REWORK  PATTERN :0=N0 

106 

F5 

FLAG:  0,1=LINEARITY  ck  table,  2,3=stab  graph 

107 

F5 

P(ONT)  @ -F:  in  C/kT  meas 

108 

F6 

FLAG  IN  E :0=PRGM  ATTN,1=STD  ATTN 

109 

F6 

FLAG  IN  E : 1 = NOI SE  ADD  #2  WORKS 

110 

F6 

FLAG  TASK  : 1= NEW  SITE ,2=MEAS ,3=REW0RK ,0=MANL 

111 

F6 

FLAG-AUTO  SEQUENCE :1=YES 

112 

F6 

FLAG :0=RESTART,1=SKY ,2=G/T,3=EIRP ,4= LI NK 

113 

F7 

FLAG-PWR  LEVEL:  0=C0NST,  1=STEPPED  (in  E) 

114 

F7 

FLAG:  0= CASSETTE  BEING  USE D,l= DISK 

115 

F8 

FLAG:(d)l=prefit  HPBW 

116 

F8 

FLG  in  E : (KEY5)0=GRAPH,1  = LIST, (KEY6)0=Nadd,ET 

117 

F8 

P(ONT)  0 +F : in  C/kT  meas 

118 

F9 

ATTN  VALUE  OF  LAST  PROG  ATTEN  IN  FNW 

119 

F9 

STORE  SET  # OF  SUMMARY  OF  REWORK  DATA 

120 

F9 

T(sky)/Ta:  in  C/kT  meas 

121 

G 

ANTENNA  GAIN,REL 

122 

G(  I ,J ) 

CURVE  FIT  MATRIX 

123 

G4 

OXYGEN  ABSORPTION  (dB/Km) 

124 

G5 

WATER  ABSORPTION,  #1  CONST  (dB/Km) 

125 

G6 

WATER  ABSORPTION,  #2  CONST  (dB/Km) 

126 

H 

HOUR  ANGLE  OFFSET  (deg) 

127 

H 

SIMULATED  STAR  NOISE(dB) 

128 

H$ 

MAIN  PROGRAM  HEADING 

129 

HI 

FIT  TO  G/T  or  NEF  data  (3*1S/SQR(#PTS) ) ,dB 

130 

H5 

INSTR  PWR  RESPONSE  FACTOR 

131 

H6  ,H7 

MOON  LUNAR  AGE (days) ,DECL  of  SUN/MOON  (in  d) 

132 

H7 

DECL  of  SUN/MOON 
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VARIABLES  LIST  by  variable 

for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D.117 


133 

H9 

ADDED  NOISE ,K 

134 

I 

HPBW 

135 

I 

LOOP  VARIABLE 

136 

15 

PLOT  UNIT 

137 

J 

BRDG  PWR  when  NOISE  ADD  sources  ON 

138 

J 

MAXIMUM  FLUX  IN  F.U. 

139 

J 

SELECT  FUNCTI0N:19=G/T,20=G/Ta,21=HPBW#l ,22=#2 
24=DECL,25=NEF 

140 

J1 

K8  for  POINT  SOURCE 

141 

J1 

LOOP  VARIABLE 

142 

K 

K1*K2*...*K9 

143 

K1 

ATMOSPHERIC  ABSORPTION  TRANSMISSION  COEFF 

144 

K2 

STAR  SHAPE  FACTOR 

145 

K3 

BANDWIDTHS  EFFECTS  FACTOR 

146 

K4 

DIFFERENTIAL  SKY  TEMPERATURE  FACTOR 

147 

K5 

ANTENNA  POINTING  FACTOR 

148 

K6 

ANTENNA  POLARIZATION  FACTOR 

149 

K7 

SYSTEM  RESPONSE  FACTOR 

150 

K8 

DIFFUSIVE  ATTENUATION  FACTOR 

151 

K9 

REFRACTIVE  ATTENUATION  FACTOR 

152 

L 

ELEVATION(deg) 

153 

L$ 

FREQ, DIAM, G/T  HEADING 

154 

LO 

ELEVATION— NO  REFRACTION  CORRECTION 

155 

LO 

FLGd  :0=GRAPH ,l  = ERRPRTOUT-no  VARIABLES ,2=wi th 

156 

LI 

ELEVATION  REFRACTION  CORRECTION, deg 

157 

LI 

ELEVATION  FOR  FITTING  G/T  OR  G 

158 

L4 

EFFECTIVE  OXYGEN  LENGTH,  Km 

159 

L5,L6 

WATER  PATH  LENGTH  CONST  #1,  CONST  #2,  Km 

160 

L7 

WATER  DENSITY  (gm/nT3) 

161 

L8 

REFRACTION  CONST  #1 

162 

L9 

REFRACTION  CONST  #2 

163 

M 

G/T  RELATIVE 

164 

M( N7 , J ) 

SUMMARY  DATA:  SEE  MATRIX  LIST 

165 

Ml 

LOOP  VARIABLE 
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VARIABLES  LIST  by  variable 

for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D.117 


166 

Ml, M2, M3 

SUM  on  P ,SUM  on  X,SUM  on  Y 

167 

M1...M4 

ATTN  0FPGM1 ,2 ,4 ,8@30MHz,PGMUSES  N( 13 , 1 4 ) 

168 

M3 

MEASUREMENT  # 0 MAXIMUM  AMPLITUDE 

169 

M5,M6 

PORT(freq)  # current,#  of  P0RTS=N( 5,11) 

170 

M6...M9 

ATTNOF  PGM  1 ,2 ,4 ,807OMHZ ,pgmuses  N( 13 ,6.9) 

171 

N 

DATE,  DECIMAL  FOR  MOON  DATA 

172 

N 

MEASUREMENT  NUMBER 

173 

N(I,J) 

INPUT  DATA  CONST,  SEE  MATRIX  LIST 

174 

NO 

STAR#(current)  1=CAS,2=CYG,3=TAU,4=0RI ,5=SUN,6=M 

175 

Ml 

NO.  OF  STAR  SOURCES 

176 

N2 

CUT  NUMBER 

177 

N3 

PWR  MEASUREMENT  # WITHIN  A CUT 

178 

N4 

LARGEST  N3 

179 

N5 

PAGE  NUMBER 

180 

N6 

RUN  # 

181 

N7 

SET  # 

182 

N8 

SUMMARY  DATA  $ = M(40,l)  = N7+F4 

183 

N9 

NUMBER  POINTS  IN  FIT 

184 

01,02,03 

FI LTER#1 (2.5MHz  0 30MHz)  CONSTS :N( 15,1) ,N( 15 ,2) , 

185 

06,07,08 

FI LTER#2( 1MHz  0 70MHz)  CONSTS : N( 15 ,6 ) ,N( 15  ,7 ) , 

186 

P 

POWER  MEASURED, MILLIWATTS 

187 

P$ 

PROJECT  HEADING 

188 

PI 

RECEIVER  GAIN  SLOPE/mHz 

189 

PI 

STAR  SHAPE  ERROR, % 

190 

PI ,P2 ,P3 

FILTER#3  (2.5MHz  0 70MHz)  CONSTS :N( 16,1 ) ,N{ 16 ,2) 

191 

P6,P7,P8 

FI LTER#4  (5.3MHz  0 70MHz)  CONSTS :N( 16 ,6 ) , N( 16 ,7 ) 

192 

Q,Q0,Q1 

DUMMY 

193 

Q2,Q3 

DUMMY 

194 

Q3 

FLG : ( LOC  SITE  DATA) . (F6=TASK ) ( F4=PRM  CHANGE?) ( F7 

195 

Q3 

HPBW, ANTENNA  ALONE ( i .e.  with  KANDA  CORRECTION) 

196 

03 

POWER  WITH  NOISE  ADD  ON 

197 

Q5,Q6 

dP(add)  in  C/kT  meas:  0 -F,  0 +F 

198 

R 

REMARKS:  SEE  REMARK  LIST 
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VARIABLES  LIST  by  variable 

for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D-117 


199 

RO 

RATIO  #ladd/#2add  0 70  MHz,  pgm  uses  N( 18 

200 

R1 

ZERO  FOR  GRAPH 

201 

R2 

RESIDUALS  FROM  CURVE  FIT 

202 

R5 

NUMBER  OF  POINTS  FIT  TO  PARABOLA 

203 

S 

G/T  ERR-FLUX 

204 

S 

TIME(hrs) , CURRENT 

205 

S$ 

STAR  NAME 

206 

S(I,J) 

STAR  DATA:  SEE  MATRIX  LIST 

207 

SI  ,S2 

SUN  FLUX  (current  time)  at  4.995  GHz,  AT 

208 

S3 

PREDICTED  MEASUREMENT  # FOR  MAXIMUM  STAR 

209 

S6 

MOON'S  MEAN  TEMP  = Tbo 

210 

T 

T(syst) 

211 

T(  NO,J) 

INPUT  STAR  DATA:  SEE  MATRIX  LIST 

212 

T1 

G/T  OR  G/Ta  VALUE 

213 

T1 

TIME  OF  1st  MEASUREMENT 

214 

T2 

CURRENT  MEASUREMENT  TIME 

215 

T2 

RUN/SET 

216 

T6 

N-6*( N7-1 ) 

217 

T9 

MOON  TEMP  (current) 

218 

U,U1,V 

LOAD  START#, STOP#, STEP  (in  d) 

219 

V 

-ALPHA, GAUSSIAN  COEFF 

220 

V 

VOLTAGE  ACROSS  PWR  BRIDGE 

221 

VI ,2 ,3 ,V4 

SUMS  on  X~4,X~2,X-3,P*X~2 

222 

V 5 

PARABOLIC  FIT  PARAMETER  h 

223 

V5,V6 

SUMS  on  P*X ,P"2 

224 

V 6 

Tstar/Ta=EXP(X-F(2)*Wl~2) 

225 

V7 

DV ,#1  RF  OFF 

226 

V7 

N3  OF  STAR  MAX 

227 

V7 

dT( star)/Ta 

228 

V8 

DISK  OR  TAPE  # 

229 

V8 

DV,  RF  ON 

230 

V 9 

DV ,#2  RF  OFF 

231 

V9 

dT(STAR)/Ta  PREDICTED 
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VARIABLES  LIST  by  variable 

for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D.117 


232 

U 

BANDWIDTH (MHz) 

233 

W1 

VARIANCE  OF  P ( STAR ) /P ( ADD ) 

234 

X 

TIME  VARIABLE,  2*I/N4-1 

235 

X$ 

SUBROUTINE  HEADING 

236 

XI 

LOOP  VARIABLE 

237 

XI 

TIME  VARIABLE,  2*(N3-M3)/N4 

238 

XI 

Xi  = G/dT(star) 

239 

X2 

GAMMA, PARABOLIC  FIT 

240 

X2 

VARIABLE  IN  FNG(N3) 

241 

X4 

K*S/2/k 

242 

X5 

AZIMUTH  BIAS  (deg) 

243 

X6 

ELEVATION  BIAS  (deg) 

244 

Y 

Y-FACTOR 

245 

Y(  I) 

MATRIX  USED  IN  CURVE  FIT  OR  DUMMY 

246 

Y1 

G/T  ERR-Y  factor  (C8*Y5) 

247 

Y5 

Y/( Y-l) 

248 

Z 

COLD  SKY  POWER  / Ta 

249 

Z1 

ZENITH  ATM  ATTN,  dB 

250 

Z5 

C/kT  MEAS:T(ONT)/Ta  FOR  UPPER  FREQ 

251 

Z5 

SERROR  VARIABLE 
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7.2  Matrix  List  Alphabetical  by  Variable 


MATRIX  LIST  by  variable 

for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D.117 


1 

A(  1) 

RU N/SET= ( FREQ#* 1 000 )+N6* 100+ N7 ; N6=RUN# , N7=set# 

2 

A(  2) 

FREQ(MHz) 

3 

A(  3) 

AMBIENT  TEMP(F)  *10 

4 

A(  4) 

DEW  PT(F)  *10 

5 

A(  5) 

RELATIVE  HUMIDITY (%)  *10 

6 

A(  6) 

CLOUD  COVER  * 100  + WIND(mph) 

7 

A(  7)* 

PWR  LEVEL, microwatts  (1st  pwr  measured  in  FNU) 

8 

A(  7 ) x 

CODE(Bl) :0=SKY,  1=-F,  2=RCR  0 F,  3=+F,  4=0THER 

9 

A(  8) 

PWR  RATIO  CHECK:  (STD  CK  results  from  FNU) 

10 

A(  8)rw 

T/Ta*10'4 

11 

A(  9)* 

U*10"4 : REFERENCE  PWR  via  1st  meas  in  -3  CUT 

12 

A(  9)x 

NOT  USED 

13 

A( 10)* 

SITE  ELEVATION  (C0*1000) 

14 

A(10)x 

SLANT  DIST(Km) : LGT(E7)*1000 

15 

D(  1,  l)x 

AZIMUTH  :(AZ( deg) -180)* 100 

16 

D(  1,  2)x 

ELEV( deg)*100 

17 

D(  2,  l)x 

FLAG  C2 : 0=N0  STD  ATTN  WHEN  NOISE  ADD  ON,  1=STD 

18 

D(  2,  2 ) x 

MANUAL  ATTN  SETTING, dB  (E6) 

19 

D(  3,  1 ) x 

NUMBER  OF  MEAS ( N4) 

20 

D(  3,  2 )x 

FILTER  BANDWIDTH, MHz  (W)*10 

21 

D(  4,  1 ) x 

P/Padd(ave  of  set)  :LGT(P/Padd)10/'4 

22 

D(  4,  2 )x 

TRX  PWR  : LGT ( E4)*10~4 

23 

D(  5,  1 ) x 

PWR#l,mW(ave, noise  add  OFF) :LGT(PWR)*10"( (E2+E6) 

24 

D(  5,  2)x 

GAIN  SLOPE  OF  RCR  (PI)  * 1000 

25 

D(  6,  1 ) x 

PWR  due  to  NOISE  ADD,mW : LGT ( PWR#2-PWR#1 )*10~4 

26 

D( 1 ,73) 

TIME  START  of  MEAS*100 

27 

D( 1 ,73) 

NO. DATA  PTS/SET*100  + NO. PARAMETERS  FIT 

28 

D( 1 ,73) 

T/Ta  via  NONLI NSFIT  as  LGT(T/Ta)*10~4 

29 

D(  1,74) 

LGT(dTstar/Ta)*10~4 

30 

D(  1,75) 

FREQ#1  (MHz) 

31 

D(  1 , N3+2 ) x 

PWR  WITH  noise  add  OFF  0 BOLO:  LGT(PWR)*10~4 

32 

D( 2,73) 

TIME  END  of  MEAS*100 

33 

D(  2,73) 

HPBWisotr  (deg)  via  NONLI NSFIT  ,LGT(HPBW)*!0~4 
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34 

D( 2 ,74 ) 

Tsky/Ta*10"5 

35 

D(2 ,75) 

FREQ#2  (MHz) 

36 

D(2,N3+2)x 

PWR( noise  add  ON):  LOT ( BOLO  PWR)*10^4 

37 

D( 3 , 74 ) 

T/Ta  (for  FREQ#1)  * 10~4 

38 

D(3,74) 

HPBWparallel  (deg)  via  NONLI NSFIT  as  LGT(HPBW)*1 

39 

D(3 ,75) 

FREQ#3  (MHz) 

40 

D(3,N3+2)x 

PWR/Padd:LGT(P/Padd)*10"4 

41 

D( 4 , 73 ) 

HPBWperp(deg)  via  NONLI NSFIT  as  LGT(HPBW)*10~4 

42 

D(  4 , 74 ) 

T/Ta  (for  FREQ#2)  * 10*4 

43 

D(4,75) 

FREQ#4  (MHz) 

44 

D(4,N3+2)x 

TIME ,hrs(El )*10~3 

45 

D(  5,73) 

dTstar/Ta  via  NONLI NSFIT  as  LGT(dTstar/Ta)*10~4 

46 

D( 5 ,74 ) 

T/Ta  (for  FREQ#3)  * KT4 

47 

D( 5 ,75) 

NO.  of  FREQS 

48 

D(5,N3+2)x 

LGT(PWR  METER  V0LTAGE)*10~4 

49 

D(  6 , 74 ) 

T/Ta  (for  FREQ#4)  * 10A4 

50 

0(6,75) 

TIME(sec)  BETWEEN  MEAS  (3600*E5) 

51 

D(6,N3+2)x 

ATTN, TOTAL:  E2+E6 

52 

D(T6,  1)* 

AZIMUTH:(AZ(deg)-180)*100 

53 

D(T6,  2)* 

ELEVATION( deg)*100 

54 

D(T6,  3)* 

# OF  MEAS ( N4 ) 

55 

D(T6,  4)* 

TIME  OF  PREDICTED  STAR  MAX:  El*1000 

56 

D(T6 , 5)* 

DECL  OFFSET  FROM  PREDICTED  STAR  CENTER:  (Bl+Ll) 

57 

D(T6,  6)* 

LOG ( ( (Tstar+Tsystem)/Tadd)/U)*10~4 

58 

D(T6 , 6)rw 

LGT(dT/Tadd)*10~4 

59 

D(T6,  7)* 

PEAK  # PREDICTED  * 100 

60 

D( T6 , N3+7 ) 

L0G(P/U)*10~4 : P=PWR/Padd(mW) ,U=PWR/Padd  REF 

61 

M( 40,  1) 

NUMBER  OF  SUMMARY  SETS  STORED  IN  MATRIX  M 

62 

M(40 , 3) 

NUMBER  OF  FILES  USED  IN  DISK  STORAGE 

63 

M ( N8 , 1) 

ELEV(deg)  + STAR#/100 

64 

M(N8,  l)d 

STAR  #/100 

65 

M(N8,  l)x 

CODE  + .07 

66 

M(N8,  2)* 

G/T(dB) 
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67 

M(N8,  2) d 

T/Ta  ZENITH  (b5) 

68 

M(N8,  2 ) x 

PWR/Pa 

69 

M(N8,  3)* 

G/Ta(dB) 

70 

M(N8,  3 ) d 

T/Ta  CSC  COEFF  (B6) 

71 

M(N8,  3) x 

PWR(mW) 

72 

M(N8,  4)* 

HPBW  of  antenna  (not  convolution,  deg) 

73 

M(N8,  4 ) d 

TIME,  DECIMAL  HRS  (FNT2) 

74 

M(N8,  4) x 

PWR  due  to  Ta  (mW) 

75 

M(N8,  5)* 

unused 

76 

M(N8,  5) d 

TEMPERATURE, F (A(3)/10) 

77 

M(N8,  5 )x 

C/kT(dB) 

78 

M(N8,  6) 

FREQ  (GHz) 

79 

M(N8,  7)* 

Y-factor 

80 

M(N8,  7 ) d 

WATER  DENSITY  (L7) 

81 

M(N8,  7 ) x 

EIRP(dBw)+G/Ta(dB)  = E 

82 

M(N8,  8)* 

NEF  (kFU) 

83 

M(N8,  8 ) d 

NUMBER  OF  POINTS  IN  DIP  CURVE 

84 

M(N8,  8) x 

ONT/Tadd:  (F2+Z5)/2 

85 

M(N8,  9)* 

NUF  (kFU) 

86 

M(N8,  9) x 

Padd(Mw) : (F5+F8)/2 

87 

M( N8 , 10) 

RUN/SET:  N6+N7/100 

88 

M(N8,M5) 

Ml  accumulation  for  FREQ  M5 

89 

M ( N8 ,M5+5) 

VI  accumulation  for  FREQ  M5 

90 

N{  1,  4) 

SYSTEM  # + (DATA  REVISION  #/100) 

91 

N(  1,  5) 

DAC  REF  vol t : #3=6 .313 ,#4=6 .367 ,#5=6 .284 ,#6=6 .24 

92 

N(  1,  6) 

DAC  mul  t=-(chnl#9-#8)/#7 :#3=0 ,3173 ,#4=0.32  ,#5=0 

93 

N(  1,  7) 

ATTN+meter(dB/10)  5.3070 :#3=16 . 15 ,#4=17 .3 ,#5=15 

94 

N(  1,  8) 

RATIO  #1  add/#2  add  0 MICROWAVE  FREQ 

95 

N(  1,  9) 

NUMBER  OF  POINTS  IN  FIT 

96 

N(  1,10) 

REWORK  # 

97 

N(  1,11) 

NO.  of  DAYS  of  SUN/MOON  DATA 

98 

N(  5,1-4) 

FREQ#1,#2,#3,#4  (MHz) 

99 

N(  5,11) 

NO.  of  FREQS  used  (M6) 
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100 

101 

102 

N(  5,5-9) 
N(  6,1-4) 
N(13,  1) 

T/Ta  ( B5)  for  FREQ#1  to  #4 
NOISE  ADD  (H9,K)  for  FREQ#1  to  #4 
ATTN  of  ldb  prgm  @ 30MHz  :#3=0.961 

103 

104 

105 

N( 13,  2) 
N( 13 , 3) 
N( 13,  4) 

ATTN  of  2dB  prgm  0 30MHz  :#3=1 .881 
ATTN  of  4dB  prgm  0 30MHz:#3=3.947 
ATTN  of  8dB  prgm  0 30MHz :#3=7 .881 

106 

107 

108 

N(  13 , 5) 
N( 13,  6) 
N(13,  7) 

ATTN  of  STD  RES  30MHz :#3=5 .922 ,#6=4.779 

ATTN  OF  ldB  prgm  0 70:#3=0.976,#4=0.947,#5=0.938 

ATTN  OF  2dB  PRGM  070 :#3=1 .890 ,#4=1 .95 ,#5=1 .854 , 

109 

110 
111 

N( 13,  8) 
N( 13 , 9) 
N( 13,10) 

ATTN  of  4dB  prgm  0 70:#3=3.909,#4=3.87,#5=3.957, 
ATTN  of  8dB  PRGM  0 70  :#3=7 .896 ,#4=7 .86 ,#5=7 .845 , 
ATTN  of  STD  0 70 :#3=5 .966 ,#4=5 .92 ,#5=6.11 ,#6=6 .1 

112 

113 

114 

N(15,  1) 
N( 15,  2) 
N( 15 , 3) 

FI LT#1 ( 2 . 5030 ) NOISE  BW :#3=3 .915 ,#4=3 .887 ,#5=3 .6 
FI LT#1( 2. 5030) Nl, MHz :#3=0. 00938, #4=0. 01526, #5=0. 
FILTER#1 (2.5MHz  0 30MHz) :2nd  CONST 

115 

116 
117 

N( 15,  4) 
N(  15 , 6) 
N(15,  7) 

FI LT#1 ( 2 . 5030 ) LOSS , dB :#3=3 . 092 , #4=2.711  ,#5=2.391 
FI LT#2( 1070) NOISE  BW :#3=1 .193 ,#4=1 .225 ,#5=1 .23 , 
FI LT#2( 1070) Nl, MHz :#3=-0. 1043, #4=0. 0817, #5=0. 127 

118 

119 

120 

N(  15 , 8) 
N( 15,  9) 
N( 16 , 1) 

FILTER#2( 1MHz  0 70MHz) :2nd  CONST 
F I LT#2  ( 1070 ) LOSS , dB :#3=4 . 970 , #4=4 .910 ,#5=4.870 , 
FI LT#3 ( 2.5070 ) NOISE  BW :#3=2 .808 ,#4=2 .910 ,#5=2 .93 

121 

122 

123 

N( 16,  2) 
N(  16 , 3) 
N( 16,  4) 

FI LT#3(2. 5070) Nl, MHz :#3=-0. 102, #4=0. 0108, #5=-0.1 
FI LTER#3( 2.5MHz  0 70MHz)  :2nd  CONST 
F I LT#3 (2.5070) L0SS,dB:#4=5 .78 ,#5=5 .84 ,#6=5 .814 

124 

125 

126 

N( 16 , 6) 
N( 16,  7) 
N( 16 , 8) 

FI LT#4(5. 3070) NOISE  BW:#3=5.734,#4=5.80,#5=5.856 
FI LT#4  ( 5.3070 ) Nl ,MHz :#3=-0 . 14 ,#4=-0 .0782 ,#5=0.01 
FI LTER#4( 5.3MHz  0 70MHz)  :2nd  CONST 

127 

128 
129 

N(  16,  9) 

N(  17&18 ,1 ) 
N(  17,  6) 

L0SS,dB:#4=4.18,#5=3.14,#6=4.083 
STORE  STRING  P$ 

F I LT#6 ( 0 . 06070MHz ) NOI SE  BW ,MHz : #6=0.083 

130 

131 

132 

N( 17 , 7) 
N( 17,  9) 
N( 18 , 5) 

FI LT#6 ( 0.06070MHz ) Nl , MHz  :#6=0 .00178 
FI LT#6(0. 06070MHz) I NSER  LOSS, dB:#6=4. 719 
RATIO  #1  add/#2  add  0 30MHz 
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133 

134 

135 

N(  18,10) 
N( 18,2) 
N(  18,6) 

RATIO  #ladd/#2add  @ 70  :#4=0. 515  ,#5=0.526  ,#6=0.24 
T/Ta  zenith 
T/Ta  CSC  COEFF 

136 

137 

138 

N(  19,  1) 
N(19,  2) 
N( 19 , 3) 

G/T ( d B)  INTERCEPT 
G/T(dB)  ZENITH 

G/T ( d B)  SIGMA  for  LINEAR  FIT 

139 

140 

141 

N( 19 , 4) 
N( 19,  5) 
N(  19,  6) 

G/T ( dB ) SIGMA  CSC  FIT 
G/T ( dB)  ELEV  COEFF 
G/T ( dB)  CSC  COEFF 

142 

143 

144 

N(  19,  7) 
N(19,  8) 
N(  19,10) 

G/T(dB)  ELEV  COEFF  ERR 
G/T(dB)  CSC  COEFF  ERR 
MAX  VALUE 

145 

146 

147 

N(  19,11) 
N( 19,9) 
N(20,  1) 

ELEV  AVERAGE 
MIN  VALUE 

G/T  a ( dB ) INTERCEPT 

148 

149 

150 

N( 20,  2) 
N( 20 , 3) 
N( 20,  4) 

G/Ta(dB)  ZENITH 
G/Ta(dB)  INTERCEPT  IS  ERR 
G/Ta  ZENITH  IS  ERR 

151 

152 

153 

N(20,  5) 
N(20,  6) 
N(  20 , 7) 

G/Ta(dB)  ELEV  COEFF 
G/Ta(dB)  CSC  COEFF 
G/Ta(dB)  ELEV  COEFF  ERR 

154 

155 

156 

N(20,  8) 
N(  20,22) 
N(21,  1) 

G/Ta(dB)  CSC  COEFF  ERR 
CSC  ELEV  AVERAGE 
HPBW#1 ( deg)  INTERCEPT 

157 

158 

159 

N( 21 , 2) 
N(21,  3) 
N( 21 , 4) 

HPBW#1  ZENITH 

HPBW#1 ( deg)  INTERCEPT  IS  ERR 
HPBW#1 ( deg)  ZENITH  IS  ERR 

160 

161 

162 

N( 21 , 5) 
N( 21 , 6) 
N ( 2 1 , 7) 

HPBW#1 ( deg)  ELEV  COEFF 
HPBW#1 ( deg)  CSC  COEFF 
HPBW#1 ( deg)  ELEV  COEFF  ERR 

163 

164 

165 

N( 21 , 8) 
N ( 2 1 ,11) 
N(  22 , 1) 

HPBW#1  CSC  COEFF  ERR 
SUM  of  (ELEV-AVE  ELEVK2 
HPBW#2 ( deg)  INTERCEPT 
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166 

167 

168 

N( 22 , 2) 
N( 22,  3) 
N( 22 , 4) 

HPBW#2  ZENITH 

HPBW#2(deg)  INTERCEPT  IS  ERR 
HPBW#2 ( deg)  ZENITH  ERR 

169 

170 

171 

N( 22,  5) 
N(22 , 6) 
N(22,  7) 

HP BW#2 ( deg)  ELEV  COEFF 
HPBW#2(deg)  CSC  COEFF 
HPBW#2( deg)  ELEV  COEFF  ERR 

172 

173 

174 

N( 22 , 8) 
N( 22,11) 
NO 

HPBW#2(deg)  CSC  COEFF  ERR 

SUM  of  (CSC  ELEV  - AVE  CSC  ELEV) '2 

STAR#(current)  1=CAS ,2=CYG,3-TAU ,4-ORI ,5-SUN, 6=M 

175 

176 

177 

N( 24,  2) 
N( 24 , 3) 
N( 24,  4) 

D-DECL(deg)  ZENITH 
D-DECL(deg)  INTERCEPT  IS  ERR 
D-DECL(deg)  ZENITH  IS  ERR 

178 

179 

180 

N( 24 , 5) 
N( 24,  6) 
N( 24 , 7) 

D-DECL(deg)  ELEV  COEFF 
D-DECL(deg)  CSC  COEFF 
D-DECL(deg)  ELEV  COEFF  ERR 

181 

182 

183 

N( 24,  8) 
N( 25 , 1) 
N( 25,  2) 

D-DECL(deg)  CSC  COEFF  ERR 
NEF(kFU)  intercept 
NEF(kFU)  zenith 

184 

185 

186 

N( 25 , 3) 
N( 25,  4) 
N( 25 , 5) 

NEF(kFU)  intercept  IS  ERR 
NEF(kFU)  zenith  IS  ERR 
NEF(kFU)  elev  coeff 

187 

188 
189 

N( 25,  6) 
N( 25 , 7) 
N(25,  8) 

NEF(kFU)  esc  coeff 
NEF(kFU)  elev  coeff  err 
NEF(kFU)  esc  coeff  err 

190 

191 

192 

N( 26 , 1) 
N( 26,  2) 
N( 26 , 3) 

NUF(kFU)  intercept 
NUF(kFU)  zenith 
NUF(kFU)  intercept  IS  err 

193 

194 

195 

N( 26,  4) 
N( 26 , 5) 
N( 26,  6) 

NUF(kFU)  zenith  IS  err 
NUF(kFU)  elev  coeff 
NUF(kFU)  esc  coeff 

196 

197 

198 

N( 26 , 7) 
N( 26,  8) 
N(2i-1 , j ) 

NUF(kFU)  elev  coeff  err 
NUF(kFU)  esc  coeff  err 

SUN  DATA :i=l=date,2=DECL,3=DIST ,5=tl ,6=S5 ( T1 ) ,7= 
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199 

200 
201 

N(  I , J ) 

N(  1+5 , j ) 
S ( NO , 1 ) 

PROG  CONSTS  I <26  :I , l=A,2=B,etc;J , 1=1 ,... ,10=0, 
MOON  DATA:j=day,I=2=A0,3=Al,4=A2,5=lunar  age(day 
STAR  FLUX  (F.U. ) 0 STANDARD  FREQ 

202 

203 

204 

S ( NO , 2 ) 
S(  NO, 3) 
S ( NO , 4 ) 

STAR=RT  ASC  (deg);  S0LAR=GHA  @ 0 gmt  (deg) 
STAR=N.  DEC.  (deg);  SOLAR=N.  DEC.  0 0 GMT  (deg) 
FLUX  AT  THE  WORKING  FREQ  (F.U.) 

205 

206 
207 

S$ 

T( 14,  9) 
T( 14,10) 

STAR  NAME 

DAYS (STAR  EPIC)  SINCE  1977 
DAYS (SOLAR  EPIC)  SINCE  1977 

208 

209 

210 

T(9&10,1) 
T( NO,  1) 
T( NO,  4)* 

STORE  STRING  P$ 

STAR/SOLAR  NAME 

SPECTRAL  INDEX  SECULAR  EXPANSI0N(%/Yr)*1000 

211 

212 

213 

T(  NO , 5)* 
T( NO,  6)* 
T( NO , 7)* 

SPEC  INDEX  SECULAR  EXPN  UNCERTAINTY(%/Yr)*1000 
SPECTRAL  INDEX  * 1000 
SPECTRAL  INDEX  ERR  * 1000 

214 

215 

216 

T( NO,  8)* 
T(  NO , 9)* 
T ( NO ,10)* 

FLUX  ERR  0 STD  FREQ  (%)  * 10 
DISK  SIZE  (ARC  MIN)  * 100 
FLUX  ERR  0 F(%)  * 10 

217 

218 
219 

T { NO  ,11)* 
T ( NO , 1 1 ) s 
T( NO, 12)* 

LINEAR  POLZ(%)  * 10 

GHA/hr  * 1000 

LINEAR  POLZ  ERR(%)  * 10 

220 

221 

222 

T ( NO , 1 2 ) S 
T ( NO ,13)* 
T(N0,13)s 

( N. DEC  0 12  GMT  - N.DEC  0 0 GMT)*1000 
POLZ  ANG  (deg)  * 10 
HORIZONTAL  PARALLAX  * 1000 

223 

224 

225 

T(N0,14)* 
T ( NO , 1 4 ) s 
T ( NO ,15)* 

POLZ  ANG  ERR  (deg)  * 10 
AGE  OF  MOON  (days) 

FLUX  EPOCH,  YEAR*10 

226 

227 

228 

T(  NO , 16  )* 
T( NO, 17  )* 
T( NO, 18)* 

SECULAR  DECAY  of  flux  (%/Yr)*100 
SECULAR  DECAY  of  flux  ERR  (%/Yr)*100 
STD  FREQ(GHz)  * 100 

229 

230 

231 

T( NO, 19)* 
T(N0,20)* 
T ( NO ,21) 

MIN  FREQ  (GHz)*100  WHERE  FLUX  CALC  VALID 
MAX  FREQ  ( GHz)*100  WHERE  FLUX  CALC  VALID 
FLAG:  0=STAR  DATA,  1= SOLAR  DATA 
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232 

T(N0,21)s 

GHA/HR  (deg)  * 1000 

233 

T(N0,23)s 

N.  DEC. /hr  (deg)  * 1000 

234 

T ( NO , 5 ) s 

SUN : ( N. DEC  @ 24GMT  - N. DEC  AT  0 GMT)*1000 

235 

X$ 

SUBROUTINE  HEADING 

236 

XI 

LOOP  VARIABLE 

237 

XI 

TIME  VARIABLE,  2*(N3-M3)/N4 

238 

XI 

Xi  = G/dT(star) 

239 

X2 

GAMMA, PARABLIC  FIT 

240 

X2 

VARIABLE  IN  FNG(N3) 

241 

X4 

K*S/2/k 

242 

X5 

AZIMUTH  BIAS  (deg) 

243 

X6 

ELEVATION  BIAS  (deg) 

244 

Y 

Y-FACTOR 

245 

Y(  I) 

MATRIX  USED  IN  CURVE  FIT  OR  DUMMY 

246 

Y1 

G/T  ERR-Y  factor  (C8*Y5) 

247 

Y5 

Y/( Y-l) 

248 

Z 

COLD  SKY  POWER  / Ta 

249 

Z1 

ZENITH  ATM  ATTN,  dB 

250 

Z5 

C/kT  MEAS :T(ONT)/Ta  FOR  UPPER  FREQ 

251 

Z5 

SERROR  VARIABLE 
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1 

FLAG  1 

STAR  FLUX  CALC  FOR  SPECIFIED  FREQ  & DATE 

2 

FLAG  1 

1 = E I P R DATA  INPUT 

3 

FLAG  1 

DISK  STORAGE  (F7)  <prgm  A> 

4 

FLAG  2 

G/T  ERRORS  CALCULATED  FOR  SPECIFIC  FREQ  & DATE 

5 

FLAG  7 

PRT  OUT  ERR :l=W/0  CONSTS 

6 

FLAG  9 

HEADING :1=BYPASS  DATE , FREQ ,ATN  DIAM,G,G/T,G/Ta 

7 

FNA(NO) 

ANT  POINT :NO=STAR  # I N : H , LI , B1 , E 1 ; OUT:A,L,LO 

8 

FNAd(Q) 

HPBW  of  ant(deg),  Q=HPBW*( deg) , I N : NO 

9 

FNB(Q) 

BEEP:  Q=#  OF  BEEPS 

10 

FNC(Q) 

PAGE  HEADING:  Q=#  SPACES  BEFORE  PRT  HEADING 

11 

FND(Q) 

I NIT  HARDWARE:  0=VTVM,BRG, NOISE,  1=PWR  BRG 

12 

FNDd(Q) 

= 10MQ/1E4) 

13 

FNE(NO) 

ERROR  CALC  FOR  G/T:  NO=STAR  # 

14 

FNFa  1 

REWIND  INT  CASSETTE 

15 

FNFb  0 

SITE:  W.  long,  N.  lat,  alt 

16 

FNFc  0 

STD  VALUE ( A3 ) CHANGE 

17 

FNFc  1 

SOURCE#  CHANGE,  RESET  MAT  A & MAT  D 

18 

FNFc  2 

prt  :T/Ta=( N( 5,5+M5) ) + (B6)*CSCL 

19 

FNFc  3 

calc  :T,R1 ,15 

20 

FNFc  4 

enter  :REMARKS 

21 

FNFd  0 

RESTART 

22 

FNFd  1 

ques  DATA  ON  TAPE/DISK .TAPE  # 

23 

FNFd  2 

headi ng  G/T, G/Ta,NEF,NUF,Y- factor 

24 

FNFd  3 

headi ng  K1 , . . .K9,K.A-eff ,R-eff ,S,Xi 

25 

FNFd  4 

PRINT  OUT  FIT  RESULTS, 

26 

FNFd  5 

heading  *HPBW  #1  =...+. ..CSC  L=...  (ant  HPBW  =.. 

27 

FNFd  6 

prt :G(dB)  G-hpbw  T(K)  Ta(K)  Y-fac  HPBWerr  ... 

28 

FNFd  7 

ques:  DATA  SET# 

29 

30 

FNFd  8 
FNFd  9 

A$=  ! ! ! ! ! ! . . . 

prt:SITE  ELEV,oxy  attn, water  attn, zenith  attn. 

31 

FNFd  10 

prt  A2,C9, D1,N( 21,1 ),T( 1,9) ,C8,D8,D9,J1,N( 21,3), 

32 

FNFe  0 

ATTN  SETTING,  FILTER  IDENTIFICATION  HEADING 

33 

FNG(Q) 

CURVE  FIT :0=INIT,-99=CALC  FIT  ( out : I ,R2 ,W1 , V5 , 
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34 

FNGb(Q) 

convert :Q  in  decimal  DEG  to  DEG.MMSS 

35 

FNH(Q) 

HEADINGS:  0=FIT  #,  1=TAPE  # 

36 

FNI(Q) 

DRAW  LINE  :1  -;2  — ;3  ==;4  ##;5  @0 

37 

FNJ(Q) 

KEY  SUB:  Q=KEY  #,  SEE  KEY  LIST 

38 

FNK(NO) 

K-FACTOR  CALC,e.g.  K1,K2,...,K9 

39 

FNL  1 

G/T  plot  ( J = 1 9 ) 

40 

FNL  1.1 

G/T  err  TABLE:  no  print  variables 

41 

FNL  1.2 

G/T  err  TABLE:  print  variables 

42 

FNL  2 

G/Ta  plot  ( J=20) 

43 

FNL  2.1 

G/Ta  err  TABLE:  no  print  variables 

44 

FNL  2.2 

G/Ta  err  TABLE:  print  variables 

45 

FNL  3 

HPBW#1  plot  ( J =2 1 ) 

46 

FNL  4 

HPBW#2  plot  ( J =22 ) 

47 

FNL  6 

Y-factor  plot  (J=24) 

48 

FNL  7 

NEF  plot  ( J =25 ) 

49 

FNL  8 

NUF  plot  ( J =26 ) 

50 

FNM(Q) 

METEOROLINFO :0=INPUTDATA,1=PRT  DATA,2=MAL/AUT0 

51 

FNMb 

convert : DEG, MIN, SEC  to  DECIMAL  DEGREES 

52 

FNN(Q) 

ANSWER  ROUTINE  DISPLAYS  Q,  SPACE  = NO  CHANGE 

53 

FNO(Q) 

ANS  ROUTINE  SEQUENCE 

54 

FNP(Q) 

PWR  MEAS :0=#1&#2 , 1=#1 ,2=#2 , 3=PWR ,mW( I N : A3 , C3 , B2  , 

55 

FNQ(Q) 

PRGM  const(MAT  N) :l=LIST,2=correct,3=N( I ,J ) 

56 

FNQd(L) 

HPBW  of  ant  (min)  at  elev  L 

57 

FNR(Q) 

READ( ENTER  DATA)  DEVICE :2=DVM,3=CL0CK ,4=BREAK  SW 

58 

FNS(Q) 

SPACE  PAGE  Q SPACES 

59 

FNT(Q) 

TIME, DECIMAL  HRS:1=SET  UP  El  (IN:  E3,E5,N4) 

60 

FNT(Q) 

DUMMY  USED  IN  ERROR  PRT  OUT  IN  MEAS 

61 

FNTd( L) 

calc:  ANT  HPBW#l(min  of  arc) 

62 

FNU(Q) 

PWR  RATIO  CHECK:  IN:C2,B2,C3  OUT :A( 7 ) ,A(8) 

63 

FNUd  0 

LOAD  from  (F7),  0=INT,  I=EXT 

64 

FNUd  1 

LOAD :START#, STOP#, STEP  (U,U1,V) 

65 

FNUd  2 

enter :DAY  into  N(2*N-1,1) 

66 

FNUd  3 

SUN  microwave  DIAM(deg)  at  freq  F 

113 


FUNCTION,  KEY,  & FLAG  LIST  alphabetical  by  variable 


67 

FNUd  4 

MOON  OPTICAL  DIAM(deg);  for  day  D4  via  MAT  N 

68 

FNUd  5 

SUN  FLUX  for  day  D4,  time  tl 

69 

FNUd  6 

MOON  FLUX  for  day  D4 

70 

FNUd  7 

SUN  FLUX  parameters  PRINT  OUT 

71 

FNUd  8 

MOON  FLUX  parameters  PRINT  OUT 

72 

FNUd  9 

STAR  FLUX  PRINT  OUT 

73 

FNUd  10 

ERROR, abs  in  G/T(etc)  at  L,98%  probable  STUDENT 

74 

FNUd  11 

set:NO,elev  interval  for  GRAPHS 

75 

FNVe(Q) 

VOLTAGE  READING: volt  range  + channel  #/100 

76 

FNVd  0 

RESTART 

77 

FNVd  1 

calc:  G/T,G/Ta,NEF,NUF  errors 

78 

FNVd  2 

change  :ANT  DIAM,SITE  ELEV  ,NEW  MOON  DATA, FREQ 

79 

FNVd  3 

calc:  GRAPH  RANGES  for  AUTO  SEQ 

80 

FNVd  4 

calc:  LINEAR  & CSC  FIT  PARAMETERS 

81 

FNVd  5 

Q=FNF2  & RETURN 

82 

FNVd  6 

change :*HPBW,CSC  COEFF  i.e.  N(21 ,2) , N(21 ,6) 

83 

FNVd  7 

head :FL#, RUN/SET, ELEV, HPBW#1, FREQ, STAR;MAT  M=0 

84 

FNVd  8 

set:F4,N8  and  LOAD  DATA 

85 

FNVd  9 

calc  :Ta(H9)  via  G at  30deg  G=B2*(  D*F/0.3.3)*2 

86 

FNVd  10 

set :L,E7  ,M(  N8, 1 ) ,M( N8,4) ,M( N8 ,6 ) ,M( N8 ,10 ) 

87 

FNVd  11 

load  PRIOR  SUMMARY  MAT  M,  MAT  N 

88 

FNVd  12 

STORE  MAT  M & MAT  N 

89 

FNVd  13 

calc  B,B0,B2,G  via  B2,G-diff=C7,Ta=H9,B9 

90 

FNW(Q) 

WAIT  Q MILLISEC 

91 

FNX  24 

DVM  AUTORANGE 

92 

FNX  27 

0.100000  V DVM  RANGE 

93 

FNX  28 

1.00000  V DVM  RANGE 

94 

FNX  29 

10.0000  V DVM  RANGE 

95 

FNX  30 

100.000  V DVM  RANGE 

96 

FNX  31 

1000.00  V DVM  RANGE 

97 

FNX  32 

DC  FILTER  OUT 

98 

FNX  33 

DC  FILTER  IN 

99 

FNX  34 

RATIO:  FILTER  IN 
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100 

FNX  36 

AC  VOLTS  (not  installed) 

101 

FNX  40 

OHMS  (not  installed) 

102 

FNX  48 

PRGM  ATTN  =15dB 

103 

FNX  49 

PRGM  ATTN  =14dB 

104 

FNX  50 

PRGM  ATTN  =13dB 

105 

FNX  51 

PRGM  ATTN  =12dB 

106 

FNX  52 

PRGM  ATTN  =lldB 

107 

FNX  53 

PRGM  ATTN  =10dB 

108 

FNX  54 

PRGM  ATTN  = 9dB 

109 

FNX  55 

PRGM  ATTN  = 8dB 

110 

FNX  56 

PRGM  ATTN  = 7dB 

111 

FNX  57 

PRGM  ATTN  = 6dB 

112 

FNX  58 

PRGM  ATTN  = 5dB 

113 

FNX  59 

PRGM  ATTN  = 4dB 

114 

FNX  60 

PRGM  ATTN  = 3dB 

115 

FNX  61 

PRGM  ATTN  = 2dB 

116 

FNX  62 

PRGM  ATTN  = ldB 

117 

FNX  63 

PRGM  ATTN  = OdB 

118 

FNX  64 

NO  RF  to  BOLOMETER  & STD  PAD  IN 

119 

FNX  65 

RF  to  BOLOMETER  & STD  PAD  OUT 

120 

FNX  66 

STD  ATTN  IN 

121 

FNX  67 

STD  ATTN  OUT 

122 

FNX  68 

NO  RF  TO  BOLOMETER 

123 

FNX  69 

RF  TO  BOLOMETER 

124 

FNX  72 

NO  RF  to  BOLOMETER  & STD  PAD  IN  (avoid-USE  FNX64 

125 

FNX  73 

RF  to  BOLOMETER  & STD  pad  OUT  (avoid-USE  FNX65) 

126 

FNX  74 

STD  ATTN  IN  (avoid  - use  FNX66) 

127 

FNX  75 

STD  attn  OUT  (avoid  - use  FNX67 ) 

128 

FNX  76 

NO  RF  to  BOLOMETER  (avoid  - use  FNX68) 

129 

FNX  77 

RF  to  BOLOMETER  (avoid  - use  FNX69) 

130 

FNX  80 

NOISE  ADD  #1  & #2  ON 

131 

FNX  81 

NOISE  ADD  #1  & #2  OFF 

132 

FNX  82 

NOISE  ADD  #1  ON 
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133 

134 

135 

FNX  83 
FNX  84 
FNX  85 

NOISE  ADD  #1  OFF 
NOISE  ADD  #2  ON 
NOISE  ADD  #2  OFF 

136 

137 

138 

FNX  88 
FNX  89 
FNX  90 

NOISE  ADD  #1  & #2  ON  (avoid  - use  FNX80 ) 
NOISE  ADD  #1  & #2  OFF  (avoid  - use  FNX81 ) 
NOISE  ADD  #1  ON  (avoid  - use  FNX82 ) 

139 

140 

141 

FNX  91 
FNX  92 
FNX  93 

NOISE  ADD  #1  OFF  (avoid  - use  FNX83) 
NOISE  ADD  #2  ON  (avoid  - use  FNX84) 
NOISE  ADD  #2  OFF  (avoid  - use  FNX85) 

142 

143 

144 

FNX  96 
FNX  97 
FNX  98 

OPENS  MULTIPLEXER  so  can  use  front  panel  inputs 
OPENS  MULTIPLEXER  so  can  use  front  panel  inputs 
OPENS  MULTIPLEXER  so  can  use  front  panel  inputs 

145 

146 

147 

FNX  99 
FNX100 
FNX101 

OPENS  MULTIPLEXER  so  can  use  front  panel  inputs 
J357  INPUT(e.g.  ext  pwr  meter) rchannel  #11  = 110 
PWR  BRDG  vs  FINE  REF:  channel  #10  = 110  0101 

148 

149 

150 

FNX102 

FNX103 

FNX104 

PWR  BRDG  vs  REF  VOLT,  set  fine  volt:ch  #9  = 110 

PRW  BRDG  OUTPUT:  channel  #8  = 110  0110 

D/A  REFERENCE  voltage:  channel  #7  = 110  1000 

151 

152 

153 

FNX105 

FNX106 

FNX107 

CRYSTAL  DIODE  voltage:  channel  #6  = 110  1001 

D/A  OUTPUT:  channel  #5  = 110  1010 

+12  volts,  RF  UNIT:  channel  #4  = 110  1011 

154 

155 

156 

FNX108 
FNX109 
FNX 110 

+20  volts,  RF  UNIT:  channel  #3  = 110  1100 

DEW  POINT:  channel  #2  = 110  1101 

TEMP  (F/100):  channel  #1  = 110  1110 

157 

158 

159 

F NX 111 
FNX124 
FNX125 

GROUND  DVM:  channel  #0  = 110  1111 

PORT  4 selected 
PORT  3 selected 

160 

161 

162 

FNX126 

FNX127 

FNY(Q) 

PORT  2 selected 
PORT  1 selected 
PLOT  DATA:  1=PRT  HEADING 

163 

164 

165 

FNZ(NO) 
KEYa  0 
KEYa  1 

Xi=FNK( N0)*Cl*S(N0,4)*lE-26 
RESTART 

CHANGE  PRGM  CONST  & MODIFY  CORRESPONDING  N(I,J) 
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166 

KEYa 

2 

LINK:  1=SITE  PREP,  2=MEAS,  3=REW0RK 

167 

KEYb 

0 

RESTART :0=RESTART,1=LINKMEAS,2=REW0RK,3=KEY  LIST 

168 

KEYb 

1 

UPDATE: RUN#, DATE, SITE 

169 

KEYb 

2 

UPDATE:  FREQ, BW, ANT  PARAMETERS 

170 

KEYb 

3 

UPDATE :ANT  POINTING  ERROR 

171 

KEYb 

4 

UPDATE :T,G/T,Ta,PWR  RESP 

172 

KEYb 

5 

UPDATE :TEMP,  DEW  PT 

173 

KEYb 

6 

UPDATE :SUN/MOON  ALMANAC  DATA 

174 

KEYb 

7 

PRT :SITE&FLUX  DATA 

175 

KEYb 

8 

CALC:STAR  FLUX  0 f 

176 

KEYb 

9 

PRT :TYPICAL  G/T  VALUES  AND  ERRORS 

177 

KEYb 

10 

STORE:  S,T,N 

178 

KEYb 

11 

PRT: LIST  OF  ALTERNATE  STAR  ERR 

179 

KEYb 

12 

PRT:  ELEV  vs  GMT 

180 

KEYb 

. 13 

UPDATE:  N(I,J) 

181 

KEYc 

0 

RESTART :1SKY ,2G/T,3EIRP ,4LNK ,5 NEW  TAPE ,OMASTER  R 

182 

KEYc 

1 

restart  STAR: at  MEAS  #=N 

183 

KEYc 

2 

EIRP  :START  0 SET  ? 

184 

KEYc 

3 

REFIT  5 CUTS 

185 

KEYc 

4 

STAR  FIX:routine  to  estab  ANT  BIAS 

186 

KEYc 

5 

CHANGE  BIAS  :HR  ANG,  DECL,  AZ,  ELEV 

187 

KEYc 

6 

CHANGE :input  ATTN  (dB),  FILTER  # 

188 

KEYc 

7 

CHANGE:  Ta  = ADDED  NOISE, K 

189 

KEYc 

8 

CHANGE:  T(syst)/Ta 

190 

KEYc 

9 

change :INSERT  5DB  WHEN  T ( ADD) ? 

191 

KEYc 

10 

set :RDY  STORE  SET  ? 

192 

KEYc 

11 

STORE  I NT:  MAT  N,S,T  and  PRGM 

193 

KEYc 

12 

STORE  :MAT  M( summary  data),N(prgm  consts)  on  ext 

194 

KEYc 

13 

unused 

195 

KEYc 

14 

LIST  CURRENT  DATAMAT  D 

196 

KEYc 

15 

CHANGE  FREQ  & calc  new  STAR  FLUX 

197 

KEYc 

16 

change:#  MEAS  PTS,  # PTS  IN  FIT  ZONE 

198 

KEYc 

17 

change :G/Ta=B7  set:Ta  H9=G/10"( B7/10) 
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199 

KEYc 

18 

CHANGE  NOISE  ADD  SOURCES  (C3)  :0=#1&#2 , 1=#1 ,2=#2, 

200 

KEYc 

19 

LAST  MEASUREMENT: initiates  storage  steps 

201 

KEYd 

0 

RESTART :0REW0RK,1 LOAD, 2AUT0  SEQ,3DEL,4G/T,5FIT,6 

202 

KEYd 

1 

RESTART  0 N=? 

203 

KEYd 

2 

calc  :STAR  FLUX  VALUES ,Ta ,eff  area 

204 

KEYd 

3 

ENTER  TEMP,A(3) ;AND  DEW  PT  ,A(4)  USED  IN  REWORK 

205 

KEYd 

4 

prt:  G/T  DATA  SUMMARY  with  page  heading 

206 

KEYd 

5 

SORT, FIT  and  LIST  DATA 

207 

KEYd 

6 

prt:  G/T  DATA  SUMMARY  (no  heading) 

208 

KEYd 

7 

STORE  MAT  M & MAT  N 

209 

KEYe 

0 

RESTART :0=KEY  LIST,1=AUT0  CK,2=N0  AUT0(F2=0) 

210 

KEYe 

1 

CHECK  LIST 

211 

KEYe 

2 

CHECK  DVM 

212 

KEYe 

3 

CHECK  CHANNEL  VOLTAGES 

213 

KEYe 

4 

CHECK  PRGM  ATTENUATORS 

214 

KEYe 

5 

CHECK  PWR,TYPEIV  & ATTN  STABILITY 

215 

KEYe 

6 

CHECK  NOISE  ADD  STABILITY 

216 

KEYe 

9 

ques:  NEW  FREQ, BW, INPUT  ATTN,SIML  STAR  NOISE 

217 

read 

CLOCK 

ENTER(3,*)C,D:C=#1  THUMB  SW,D=SW  #2  #3  #4  HHMM.S 

218 

read 

DVM 

ENTER(2,*)A,B:  A=FUNCTION,  B=VOLTAGE 

219 

read 

SW 

RBYTE  4= INTEGER  SUM  OF  BINARY  SWITCHES 

220 

read 

SW  Y 

BIAND(R0T(RBYTE4,Y)1)=1  IF  SWITCH  Y IS  UP 
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1 

V 

-ALPHA, GAUSSIAN  COEFF 

2 

D3 

ADDED  NOISE  ERROR, % 

3 

H9 

ADDED  NOISE, K 

4 

B2  , B3 

ANTENNA  APERTURE  EFFICIENCY,  ANT  RADIATION  EFF 

5 

D 

ANTENNA  DIAMETER(FT) 

6 

B9 

ANTENNA  EFFECTIVE  AREA 

7 

G 

ANTENNA  GAIN,  relative 

8 

D5 

ANTENNA  POINTING  ERROR  (deg) 

9 

K5 

ANTENNA  POINTING  FACTOR 

10 

K6 

ANTENNA  POLARIZATION  FACTOR 

11 

B4 

ATMOSPHERIC  BRIGHTNESS  TEMPERATURE,  K 

12 

K1 

ATMOSPHERIC  ABSORPTION  TRANSMISSION  COEFF 

13 

EO 

ATTENUATION dB)  OF  PROGRAM  ATTENUATOR,  TEMPORARY 

14 

M1...M4 

ATTN0FPGM1 ,2,4,8@30MHz,PGMUSES  N( 13,1. .4) 

15 

M6...M9 

ATTN  OF  PGM  1,2, 4, 8 @ 70  MHZ,  pgm  uses  N( 13,6 

16 

A3 

ATTN  OF  STD  ATTN  (abs>l),NOT  dB) 

17 

F9 

ATTN  VALUE  OF  LAST  PROG  ATTEN  IN  FNW 

18 

E2 

ATTENUATION  dB)  OF  PROGRAM  ATTENUATOR 

19 

E6 

ATTENUATION  dB) , MANUAL  ATTENUATOR 

20 

A 

AZIMUTH(deg)  OR  DUMMY 

21 

X5 

AZIMUTH  BIAS  (deg) 

22 

W 

BANDWIDTH(MHz) 

23 

K3 

BANDWIDTHS  EFFECTS  FACTOR 

24 

J 

BRDG  PWR  when  NOISE  ADD  sources  ON 

25 

Z5 

C/kT  MEAS :T(ONT)/Ta  FOR  UPPER  FREQ 

26 

B1 

CODE  FOR  SATELLITE  CARRIER  MEAS:0=SKY,1=-F,2=RCR 

27 

Z 

COLD  SKY  POWER  / Ta 

28 

T2 

CURRENT  MEASUREMENT  TIME 

29 

G(  I ,J ) 

CURVE  FIT  MATRIX 

30 

N2 

CUT  NUMBER 

31 

Cl 

C"2/(8*PI*K*F"2) 

32 

D(T6 , I) 

DATA  MATRIX:  SEE  MATRIX  LIST 

33 

C 

DATE,  DECIMAL 
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34 

N 

DATE,  DECIMAL  FOR  MOON  DATA 

35 

E 

DAYS  SINCE  1900.00 

36 

B1 

DECL  OFFSET  (deg) 

37 

H7 

DECL  of  SUN/MOON 

38 

B6 

DEW  POINT ( F ) 

39 

K4 

DIFFERENTIAL  SKY  TEMPERATURE  FACTOR 

40 

D8 

DIFFUSIVE  ATTENUATION  ERR,% 

41 

K8 

DIFFUSIVE  ATTENUATION  FACTOR 

42 

V8 

DISK  OR  TAPE  # 

43 

A$,B$ 

DUMMY 

44 

Q.Q0.Q1 

DUMMY 

45 

Q2,Q3 

DUMMY 

46 

B(  I , J ) 

DUMMY  MATRIX 

47 

F(  I) 

DUMMY  MATRIX 

48 

V 8 

DV,  RF  ON 

49 

V7 

DV  ,#1  RF  OFF 

50 

V9 

DV  ,#2  RF  OFF 

51 

L4 

EFFECTIVE  OXYGEN  LENGTH,  Km 

52 

E 

EIRP*G/Ta 

53 

El 

EIRP:PWR  no  noise  add  (mW) 

54 

El ,3 ,4 ,E5 

EIRP  :PWR  no  add(mW) ,PWR+#1 ,PWR+#2 ,PWR+#1&#2 

55 

E3 

EIRP  :PWR+noi se  add  #1  (mW) 

56 

E4 

EIRP  :PWR+noi se  add  #2  (mW) 

57 

E5 

EIRP  :PWR+noise  add  #1  & #2  (mW) 

58 

LI 

ELEVATION  REFRACTION  CORRECTION, deg 

59 

LI 

ELEVATION  FOR  FITTING  G/T  OR  G 

60 

X6 

ELEVATION  BIAS  (deg) 

61 

L 

ELEVATION(deg) 

62 

LO 

ELEVATION— NO  REFRACTION  CORRECTION 

63 

C2 

ERROR  enhancement  factor  forNEF,NUF 

64 

F4 

FILE  # OF  N7=l , STARTING  M(40,l) 

65 

F4 

FILE  LOAD  # 

66 

A1 

FILTER  #, ( d)  MOON  CONST 

120 


VARIABLES  LIST  by  meaning 

for  NBS1X.26,  NBS1A.Q9,  NBS1B.29,  NBS1C.45,  NBS1D.117 


67 

C9 

FILTER  BANDPASS (MHz) 

68 

C8 

FILTER  FREQ  (MHz) 

69 

01, 

02,03 

FI LTER#1 ( 2.5MHz  @ 30MHz)  CONSTS :N( 15 ,1 ) ,N( 15,2) , 

70 

06, 

07,08 

FI LTER#2( 1MHz  0 70MHz)  CONSTS :N( 15,6) ,N( 15,7) , 

71 

PI, 

P2,P3 

FI LTER#3  (2.5MHz  0 70MHz)  CONSTS :N( 16 ,1 ) ,N( 16,2) 

72 

P6, 

P7,P8 

FI LTER#4  (5.3MHz  0 70MHz)  CONSTS  :N( 16 ,6) , N( 16 ,7 ) 

73 

HI 

FIT  TO  G/T  or  NEF  data  ( 3*1 S/SQR ( #PTS ) ) ,dB 

74 

F5 

FLAG  IN  D:1=PRGM  REWORK 

75 

LO 

FLGd  :0=GRAPH ,1=ERR  PRT  OUT-no  VARIABLES ,2=wi th 

76 

F4 

FLAG  IN  E :1  = SIMULATED  NOISE  ADD,2=EARTH  TERMINAL 

77 

F5 

FLAG  IN  E : 1 = NO I SE  ADD  #1  WORKS 

78 

F6 

FLAG  IN  E :0=PRGM  ATTN,1  = STD  ATTN 

79 

F6 

FLAG  IN  E : 1 = NO I SE  ADD  #2  WORKS 

80 

F6 

FLAG  TASK  : 1 = NEW  SITE ,2=ME AS, 3=RE WORK ,0=MANL  VIA 

81 

F6 

FLAG-AUTO  SEQUENCE : 1=YES 

82 

FI 

FLAG-GRAPH  :0=N0,1=DATA,2=&FIT,3=FIT,4=EXIT 

83 

C3 

FLAG-NOISE  ADD:  0=#1&#2 ,1=#1 ,2=#2 

84 

F5 

FLAG-PROGR  REWORK  PATTERN :0= NO 

85 

F2 

FLAG-PRT :0=ALL,1=PR0G  DATA,2=INPUT  ASSUMPS ,3=G/T 

86 

F7 

FLAG-PWR  LEVEL:  0=C0NST,  1=STEPPED  (in  E) 

87 

F3 

FLAG-SORT  & FIT :1=G/T-ELEV ,2=G/T-CSC,3=DIP-ELEV , 

88 

F5 

FLAG:  0,1=  LINEARITY  ck  table,  2,3=stab  GRAPH 

89 

F7 

FLAG:  0= CASSETTE  BEING  USED, 1= DISK 

90 

F3 

FLAG:  0=MANUAL  READ  TEMP ,HUMI DITY , 1=AUT0  TEMP, 

91 

F2 

FLAG :0= NORMA L,1=DIFF  PLOT  DATA,2=DIFFPL0T  cuts 

92 

F3 

F LAG : ( b)  l=bypass  trivial  ques,(e)0=XTAL,l=TYPE 

93 

FI 

FLAG : ( c )0=STAR ,1  = SATELLITE ; ( b ) 1=SU BROUTI NE  LOADE 

94 

F8 

FLAG : ( d) l=prefit  HPBW 

95 

F2 

FLAG  :0=CSC  fit,  1=LINEAR  fit 

96 

F2 

FLAG :0=N0  AUTO  CHECK ,1=YES( in  E) 

97 

FI 

FLAG :0=PRT  PWR  & VOLTS,  2=GRAPH  PWR  RATIO 

98 

F6 

FLAG :0=RESTART ,1=SKY ,2=G/T ,3=EIRP ,4=LI  NK 

99 

F3 

FLAG  :0=XTAL,1=TYPE  IV  bridge  (in  E) 
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100 

C2 

FLAG-5dB  ATTN  IN  NOISE  ADD  PWR 

101 

F8 

FLG  in  E : (KEY  5)0=GRAPH,1=LIST, 

102 

Q3 

FLG : ( LOC  SITE  DATA) . (F6-TASK ) ( F 

103 

FO 

FREQ  ERR ,% 

104 

F 

FREQ  OF  MEASUREMENT(GHz) 

105 

L$ 

FREQ, DIAM, G/T  HEADING 

106 

C7 

G via  HPBW  - G via  G/Ta,  dB 

107 

C(I,J) 

G( I ,J ) INVERSEORDUMMY 

108 

T1 

G/TORG/TaVALUE 

109 

E5 

G/T  ERR-ANTENNA  POINTING 

110 

E6 

G/T  ERR-ANT  POLARIZATION 

111 

El 

G/T  ERR-ATMOSPHERIC  ABSORPTION 

112 

E8 

G/T  ERR-ATMOSPHERIC  DIFFUSION 

113 

E9 

G/T  ERR-ATMOSPHERIC  REFRACTION 

114 

E3 

G/T  ERR- BANDWIDTH 

115 

E4 

G/T  ERR-DIFFERENTIAL  SKY  TEMP 

116 

S 

G/T  ERR-FLUX 

117 

EO 

G/T  ERR-FREQ 

118 

E2 

G/T  ERR-STAR  SHAPE 

119 

E7 

G/T  ERR-SYSTEM  RESPONSE 

120 

VI 

G/T  ERR-Y  factor  (C8*Y5) 

121 

M 

G/T  RELATIVE 

122 

B7,B8 

G/Ta(dB)  ZENITH  COEFF,CSC  COEFF 

123 

X2 

GAMMA, PARABOLIC  FIT 

124 

A2 

GAUSS  CURVE  FIT  ERROR, % dT 

125 

C6 

GHA  TO  ARIES  0 0 GMT  (hrs) 

126 

E9 

GHA  TO  ARIES(deg) 

127 

E 

HOUR  ANGLE (deg) 

128 

H 

HOUR  ANGLE  OFFSET  (deg) 

129 

I 

HPBW 

130 

E7 

HPBW  FIT  BY  GAUSSIAN  CURVE  TO  Dl 

131 

D2 

HPBW  UNCERTAINTY, % 

132 

B 

HPBW#1 (mi n of  arc), AS  MEASURED 
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133 

BO 

HPBW(minutes)  with  Kanda  correction 

134 

Q3 

HPBW, ANTENNA  ALONE ( i .e.  with  KANDA  CORRECTION) 

135 

N(I,J) 

INPUT  DATA  CONST, SEE  MATRIX  LIST 

136 

T( NO , J ) 

INPUT  STAR  DATA:  SEE  MATRIX  LIST 

137 

H5 

INSTR  PWR  RESPONSE  FACTOR 

138 

C9 

INSTRUMENTAL  POWER  RESPONSE  ERR,% 

139 

X4 

K*S/2/k 

140 

K 

K1*K2*...*K9 

141 

J1 

K8  for  POINT  SOURCE 

142 

N4 

LARGEST  N3 

143 

U,U1,V 

LOAD  START#, STOP#, STEP  (in  d) 

144 

I 

LOOP  VARIABLE 

145 

J1 

LOOP  VARIABLE 

146 

Ml 

LOOP  VARIABLE 

147 

XI 

LOOP  VARIABLE 

148 

H$ 

MAIN  PROGRAM  HEADING 

149 

Y(  I) 

MATRIX  USED  IN  CURVE  FITORDUMMY 

150 

J 

MAXIMUM  FLUX  IN  F.U. 

151 

E6 

MEASUREMENT  # OF  FIT  GAUSSIAN  CURVE 

152 

M3 

MEASUREMENT  # @ MAXIMUM  AMPLITUDE 

153 

N 

MEASUREMENT  NUMBER 

154 

E2,E3 

MONTH,  DAY 

155 

H6  ,H7 

MOON  LUNAR  AGE ( days ) ,DECL  of  SUN/MOON  (in  d) 

156 

T9 

MOON  TEMP  (current) 

157 

S6 

MOON'S  MEAN  TEMP  = Tbo 

158 

T6 

N-6*( N7-1) 

159 

V7 

N3  OF  STAR  MAX 

160 

N1 

NO.  OF  STAR  SOURCES 

161 

R5 

NUMBER  OF  POINTS  FIT  TO  PARABOLA 

162 

N9 

NUMBER  POINTS  IN  FIT 

163 

G4 

OXYGEN  ABSORPTION  (dB/Km) 

164 

F8 

P(ONT)  @ +F:  in  C/kT  meas 

165 

F5 

P(ONT)  0 -F:  in  C/kT  meas 
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166 

B8 

P ( ONT ) ,mW=(F5+F8)/2 : in  C/kT  MEAS 

167 

F2 

P/Pa  for  LOWER  FREQ  ONT: in  C/kT  meas 

168 

N5 

PAGE  NUMBER 

169 

V 5 

PARABOLIC  FIT  PARAMETER  h 

170 

15 

PLOT  UNIT 

171 

M5  ,M6 

PORT(freq)  # currently  being  used,#  of  PORTS 

172 

P 

POWER  MEASURED, MILLIWATTS 

173 

Q3 

POWER  WITH  NOISE  ADD  ON 

174 

S3 

PREDICTED  MEASUREMENT  # FOR  MAXIMUM  STAR  PWR 

175 

P$ 

PROJECT  HEADING 

176 

N3 

PWR  MEASUREMENT  # WITHIN  A CUT 

177 

E9 

PWR(mW)  ON  SAT  SIGNAL 

178 

A8 

RATIO  #1  add/#2  add  uses  N( 18,5  or  10) 

179 

RO 

RATIO  #ladd/#2add  0 70  MHz,  pgm  uses  N( 18,10) 

180 

F 

RECEIVER  FREQ(MHz) 

181 

PI 

RECEIVER  GAIN  SLOPE/mHz 

182 

K9 

REFRACTIVE  ATTENUATION  FACTOR 

183 

L8 

REFRACTION  CONST  #1 

184 

L9 

REFRACTION  CONST  #2 

185 

D9 

REFRACTIVE  ATTENUATION  ERROR, % 

186 

D$ 

REMARKS 

187 

R 

REMARKS  :SEE  REMARK  LIST 

188 

R2 

RESIDUALS  FROM  CURVE  FIT 

189 

AO 

REWORK  #,  (d)  MOON  CONST 

190 

N6 

RUN  # 

191 

T2 

RUN/SET 

192 

J 

SELECT  FUNCTION :19=G/T,20=G/Ta ,21 =HPBW#1 ,22=#2 ,24 

193 

Z5 

SERROR  VARIABLE 

194 

N7 

SET  # 

195 

A(N7) 

SET  DATA:  SEE  MATRIX  LIST 

196 

H 

SIMULATEDSTAR  NOISE ( dB) 

197 

CO 

SITE  ELEV  (Km) 

198 

C4,C5 

SITE:  W. LONG  (deg),  N.  LAT  (deg) 
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199 

DO 

SKY  BACKGROUND  ERR,0.9/F~2 

200 

Cl 

SPACE  LOSS 

201 

FI 

SPACE  LOSS:  in  C/kT  MEAS 

202 

E7 

SLANT  RANGE, 10*6  Km 

203 

S(I,J) 

STAR  DATA:  SEE  MATRIX  LIST 

204 

s$ 

STAR  NAME 

205 

D1 

STAR  SHAPE  ERR,% 

206 

K2 

STAR  SHAPE  FACTOR 

207 

PI 

STAR  SHAPE  ERROR, % 

208 

NO 

STAR#(current)  1=CAS,2=CYG,3=TAU,4=0RI ,5=SUN,6=M 

209 

F9 

STORE  SET  # OF  SUMMARY  OF  REWORK  DATA 

210 

X$ 

SUBROUTINE  HEADING 

211 

Ml, M2, M3 

SUM  on  P,SUM  on  X,SUM  on  Y 

212 

M(N7,J) 

SUMMARY  DATA:  SEE  MATRIX  LIST 

213 

N8 

SUMMARY  DATA  $ = M(40,l)  = N7+F4 

214 

V5,V6 

SUMS  on  P*X  ,P*2 

215 

VI ,2 ,3 ,V4 

SUMS  on  X"4,X"2,X"3,P*X"2 

216 

SI  ,S2 

SUN  FLUX  (current  time)  at  4.995  GHz,  AT  8.8  GHz 

217 

A4,A5,A6 

SYST  CONSTS :PRGM  USES  N( 1 ,4) ,N( 1 ,5) ,N( 1 ,6) 

218 

K7 

SYSTEM  RESPONSE  FACTOR 

219 

F9 

T(sky)/Ta:  in  C/kT  meas 

220 

T 

T( syst) 

221 

B6 

T/TaCSC  COEFF 

222 

B5 

T/TaZENITH 

223 

B5 

TEMPERATURE(F) 

224 

T1 

TIME  OF  1st  MEASUREMENT 

225 

El 

TIME  OF  STAR  PEAK  (hrs) 

226 

X 

TIME  VARIABLE,  2*I/N4-1 

227 

XI 

TIME  VARIABLE,  2*(N3-M3)/N4 

228 

S 

TIME(hrs),  CURRENT 

229 

E8 

TIME(hrs)/(ARC  deg) 

230 

E5 

TIME/MEASUREMENT  (hrs) 

231 

V 6 

Tstar/Ta=EXP(X-F(2)*Wl~2) 
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232 

FO 

VALUE  OF  C2  IN  FNW 

233 

X2 

VARIABLE  IN  FNG(N3) 

234 

W1 

VARIANCE  OF  P(STAR)/P(ADD) 

235 

V 

VOLTAGE  ACROSS  PWR  BRIDGE 

236 

G5 

WATER  ABSORPTION,  #1  CONST  (dB/Km) 

237 

G6 

WATER  ABSORPTION,  #2  CONST  (dB/Km) 

238 

L7 

WATER  DENSITY  (gm/m'3) 

239 

L5,L6 

WATER  PATH  LENGTH  CONST  #1,  CONST  #2 

240 

XI 

Xi  = G/dT(star) 

241 

Y 

Y-FACTOR 

242 

C8 

Y-FACTOR  ERR ,% 

243 

Y5 

Y/( Y-l ) 

244 

D4 

YEAR,  (d)  day  for  SUN/MOON  FLUX  CALC 

245 

E6 

YEARS  SINCE  1977 

246 

Z1 

ZENITH  ATM  ATTN,  dB 

247 

R1 

ZERO  FOR  GRAPH 

248 

Q5.Q6 

dP(add)  in  C/kT  meas:  0 -F,  @ +F 

249 

V 9 

dT(STAR)/Ta  PREDICTED 

250 

V7 

dT( star)/Ta 

251 

D9 

no.  of  MEAS  for  MULT  FREQ  ROUTINE 
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1 

D(T6 , 3)* 

# OF  MEAS( N4 ) 

2 

T ( NO , 1 2 ) s 

( N.DEC  0 12  GMT  - N. DEC  0 0 GMT)*1000 

3 

T ( NO , 14 ) s 

AGE  OF  MOON  (days) 

4 

A(  3) 

AMBIENT  TEMP(F)  *10 

5 

N( 13 , 6) 

ATTN  OF  ldB  prgm  0 70  :#3=0. 976 ,#4=0.947 ,#5=0.938 

6 

N( 13,  7) 

ATTN  OF  2dB  PRGM  @70  :#3=1 .890, #4=1 .95 ,#5=1 .854 , 

7 

N( 13 , 1) 

ATTN  of  ldb  prgm  @ 30MHz :#3=0.961 

8 

N( 13,  2) 

ATTN  of  2dB  prgm  @ 30MHz  :#3=1 .881 

9 

N( 13 , 3) 

ATTN  of  4dB  prgm  @ 30MHz:#3=3.947 

10 

N( 13,  8) 

ATTN  of  4dB  prgm  @ 70:#3=3.909,#4=3.87,#5=3.957, 

11 

N( 13 , 4) 

ATTN  of  8dB  prgm  @ 30MHz :#3=7 .881 

12 

N( 13,  9) 

ATTN  of  8dB  PRGM  @ 70 :#3=7 .896 ,#4=7 .86 ,#5=7 .845 , 

13 

N(  13 , 5) 

ATTN  of  STD  RES  30MHz :#3=5. 922 ,#6=4.779 

14 

N( 13,10) 

ATTN  of  STD  @ 70 : #3=5. 966 ,#4=5 .92 ,#5=6.11 ,#6=6.1 

15 

N(  1,  7) 

ATT N+me te r ( d B/ 10 ) 5.3070 :#3=16 . 15 ,#4=17 . 3 ,#5=15 . 

16 

D(6,N3+2)x 

ATTN, TOTAL:  E2+E6 

17 

D(  1,  1 ) x 

AZIMUTH : ( AZ ( deg ) -180 )*100 

18 

D(T6,  1)* 

AZIMUTH :(AZ(deg)-180)*100 

19 

M(N8,  5)x 

C/kT ( dB) 

20 

A(  6) 

CLOUD  COVER  * 100  + WIND(mph) 

21 

M( N8,  1 ) x 

CODE  + .07 

22 

A(  7)x 

CODE(Bl) :0=SKY,  1=-F,  2=RCR  @ F,  3=+F,  4=0THER 

23 

N( 20,22) 

CSC  ELEV  AVERAGE 

24 

N( 24 , 1) 

D-DECL(deg)  INTERCEPT 

25 

N( 24,  2) 

D-DECL(deg)  ZENITH 

26 

N( 24 , 3) 

D-DECL(deg)  INTERCEPT  IS  ERR 

27 

N( 24,  4) 

D-DECL(deg)  ZENITH  IS  ERR 

28 

N( 24 , 5) 

D-DECL(deg)  ELEV  COEFF 

29 

N( 24,  6) 

D-DECL(deg)  CSC  COEFF 

30 

N( 24 , 7) 

D-DECL(deg)  ELEV  COEFF  ERR 

31 

N( 24,  8) 

D-DECL(deg)  CSC  COEFF  ERR 

32 

N(  1,  5) 

DAC  REF  vol t :#3=6 .313 ,#4=6 .367 ,#5=6 .284 ,#6=6 .24 

33 

N(  1,  6) 

DAC  mul t=-(chnl#9-#8)/#7 :#3=0,3173,#4=0.32 ,#5=0. 
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34 

T(  14,10) 

DAYS( SOLAR  EPIC)  SINCE  1977=#DAYS  SINCE  1900  - 2 

35 

T( 14,  9) 

DAY S ( STAR  EPIC)  SINCE  1977=#DAYS  SINCE  1900  - 28 

36 

D(T6,  5)* 

DECL  OFFSET  FROM  PREDICTED  STAR  CENTER:  (Bl+Ll) 

37 

A(  4) 

DEW  PT(F)  *10 

38 

T( NO,  9)* 

DISK  SIZE  (ARC  MIN)  * 100 

39 

M(N8,  7 )x 

EIRP(dBw)+G/Ta(dB)  = E 

40 

N( 19,11) 

ELEV  AVERAGE 

41 

M(N8,  1) 

ELEV(deg)  + STAR#/100 

42 

D(  1,  2) x 

ELEV ( deg)*100 

43 

D(T6,  2)* 

ELEV ATI ON ( deg) *100 

44 

N(  15 , 1) 

FI LT#1 ( 2.5030 ) NOISE  BW :#3=3 .915 ,#4=3 .887 ,#5=3 .6 

45 

N( 15,  2) 

FI LT#1(2 .5030) N1 ,MHz :#3=0. 00938, #4=0. 01 526 ,#5=0. 

46 

N(  15 , 4) 

FI LT#1 ( 2.5030) LOSS, dB: #3=3 .092 ,#4=2 .711 ,#5=2.391 

47 

N( 15,  6) 

FI LT#2( 1070) NOISE  BW :#3=1 . 193 ,#4=1 .225 ,#5=1 .23 , 

48 

N( 15 , 7) 

FI LT#2( 1070) Nl, MHz  :#3=-0. 1043, #4=0. 0817, #5=0. 127 

49 

N( 15,  9) 

FI LT#2( 1070) LOSS, dB:#3=4. 970, #4=4. 910, #5=4. 870, 

50 

N( 16 , 1) 

FI LT#3 ( 2.5070 ) NOISE  BW :#3=2 .808 ,#4=2 .910 ,#5=2 .93 

51 

N( 16,  2) 

FI LT#3( 2 .5070) Nl ,MHz :#3=-0 . 102 ,#4=0.0108 , #5= -0. 1 

52 

N( 16 , 4) 

F I LT #3(2.5070) LOSS ,dB : #4=5 .78 ,#5=5 .84 ,#6=5.814 

53 

N( 16,  6) 

FI LT#4( 5.3070) NOISE  BW:#3=5.734,#4=5.80,#5=5.856 

54 

N( 16 , 7) 

FI LT#4( 5 .3070) Nl ,MHz :#3=-0 . 14 ,#4=-0.0782 ,#5=0 .01 

55 

N( 17,  6) 

F I LT#6 ( 0.06070MHz ) NOI SE  BW  ,MHz : #6=0.083 

56 

N( 17 , 7) 

FI LT#6 ( 0. 06070MHz) Nl, MHz :#6=0. 00178 

57 

N( 17,  9) 

FI LT#6(0. 06070MHz) I NSER  LOSS, dB:#6=4. 719 

58 

D(  3,  2) x 

FILTER  BANDWIDTH, MHz  (W)*10 

59 

N( 15,  3) 

FILTER#l(2.5MHz  0 30MHz):2nd  CONST 

60 

N( 15 , 8) 

FI LTER#2 ( 1MHz  0 70MHz):2nd  CONST 

61 

N( 16,  3) 

FILTER#3(2.5MHz  0 70MHz):2nd  CONST 

62 

N( 16 , 8) 

FILTER#4(5.3MHz  0 70MHz) :2nd  CONST 

63 

D(  2,  1 ) x 

FLAG  C2 : 0=N0  STD  ATTN  WHEN  NOISE  ADD  ON,  1=STD 

64 

T ( NO ,21) 

FLAG:  0=STAR  DATA,  1=S0LAR  DATA 

65 

S ( NO , 4 ) 

FLUX  AT  THE  WORKING  FREQ  (F.U.) 

66 

T( NO, 15)* 

FLUX  EPOCH,  YEAR*10 
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67 

T(N0,  8)* 

FLUX  ERR  0 STD  FREQ  [%)  * 10 

68 

T( NO, 10)* 

FLUX  ERR  0 Y[l)  * 10 

69 

M(N8,  6) 

FREQ  (GHz) 

70 

D( 1,75) 

FREQ#1  (MHz) 

71 

N(  5,1-4) 

FREQ#1,#2,#3,#4  (MHz) 

72 

D(2 ,75) 

FREQ#2  (MHz) 

73 

D( 3 ,75 ) 

FREQ#3  (MHz) 

74 

D(  4 , 75 ) 

FREQ#4  (MHz) 

75 

A(  2) 

FREQ(MHz) 

76 

M(N8,  2)* 

G/T(dB) 

77 

N(  19,  6) 

G/T(dB)  CSC  COEFF 

78 

N( 19,  8) 

G/T(dB)  CSC  COEFF  ERR 

79 

N( 19,  5) 

G/T(dB)  ELEV  COEFF 

80 

N( 19,  7) 

G/T(dB)  ELEV  COEFF  ERR 

81 

N(19,  1) 

G/T(dB)  INTERCEPT 

82 

N( 19,  3) 

G/T(dB)  SIGMA  for  LINEAR  FIT 

83 

N(  19 , 4) 

G/T(dB)  SIGMA  CSC  FIT 

84 

N( 19,  2) 

G/T(dB)  ZENITH  ■ 

85 

N( 20 , 4) 

G/Ta  ZENITH  IS  ERR 

86 

M(N8,  3)* 

G/Ta(dB) 

87 

N( 20 , 6) 

G/Ta(dB)  CSC  COEFF 

88 

N( 20,  8) 

G/Ta(dB)  CSC  COEFF  ERR 

89 

N(20,  5) 

G/Ta ( dB)  ELEV  COEFF 

90 

N(20,  7) 

G/Ta(dB)  ELEV  COEFF  ERR 

91 

N(20,  1) 

G/Ta(dB)  INTERCEPT 

92 

N( 20,  3) 

G/Ta(dB)  INTERCEPT  IS  ERR 

93 

N( 20 , 2) 

G/Ta(dB)  ZENITH 

94 

D(  5,  2)x 

GAIN  SLOPE  OF  RCR  (PI)  * 1000 

95 

T ( NO , 2 1 ) s 

GHA/HR  (deg)  * 1000 

96 

T ( NO , 1 1 ) s 

GHA/hr  * 1000 

97 

T ( NO , 13 ) S 

HORIZONTAL  PARALLAX  * 1000 

98 

M(N8,  4)* 

HPBW  of  antenna  (not  convolution,  deg) 

99 

N(  21 , 8) 

HPBW#1  CSC  COEFF  ERR 
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100 

101 

102 

N(21,  2) 
N(21,  1) 
N(21,  3) 

HPBW#1  ZENITH 

HPBW#1 ( deg)  INTERCEPT 

HPBW#1 ( deg)  INTERCEPT  IS  ERR 

103 

104 

105 

N(21,  4) 
N(  21 , 5) 
N(21,  6) 

HPBW#1 ( deg)  ZENITH  IS  ERR 
HPBW#1 ( deg)  ELEV  COEFF 
HPBW#1 ( deg)  CSC  COEFF 

106 

107 

108 

N(21,  7) 
N(22,  2) 
N( 22 , 1) 

HPBW#1 ( deg)  ELEV  COEFF  ERR 
HPBW#2  ZENITH 
HPBW#2(deg)  INTERCEPT 

109 

110 
111 

N(22,  3) 
N(22,  4) 
N( 22,  5) 

HPBW#2( deg)  INTERCEPT  IS  ERR 
HPBW#2(deg)  ZENITH  ERR 
HPBW#2(deg)  ELEV  COEFF 

112 

113 

114 

N( 22 , 6) 
N( 22,  7) 
N( 22 , 8) 

HPBW#2(deg)  CSC  COEFF 
HPBW#2( deg)  ELEV  COEFF  ERR 
HPBW#2(deg)  CSC  COEFF  ERR 

115 

116 
117 

D( 2,73) 
D( 3,74) 
D( 4 , 73 ) 

HPBWisotropic  (deg)  via  NONLINSFIT 
HPBWparal 1 el  (deg)  via  NONLINSFIT 
HPBWperpendicul ar( deg)  via  NONLINSFIT 

118 

119 

120 

D( 5 , N3+2 ) x 
D(T6,  6)rw 
D( 1 ,74) 

LGT(PWR  METER  VOLTAGE )*10"4 

LGT(dT/Tadd)*10~4 

LGT(dTstar/Ta)*10~4 

121 

122 

123 

T( NO, 11)* 
T( NO, 12)* 
D(T6 , 6)* 

LINEAR  POLZ(%)  * 10 

LINEAR  POLZ  ERR(%)  * 10 

LOG( ( (Tstar+Tsy$tem)/Tadd)/U)*10~4 

124 

125 

126 

D( T6 , N3+7 ) 
N( 16,  9) 
M(M8,M5) 

L0G(P/U)*10~4:  P=PWR/Padd(mW) ,U=PWR/Padd  REF 
L0SS,dB:#4=4.18,#5=3.14,#6=4.083 
Mlaccumulation  for  FREQ  M5 

127 

128 
129 

D(  2,  2 )x 
T( NO ,20)* 
N( 19,10) 

MANUAL  ATTN  SETTING, dB  (E6) 

MAX  FREQ  (GHz)*100  WHERE  FLUX  CALC  VALID 
MAX  VALUE 

130 

131 

132 

T(N0,19)* 
N( 19,9) 

N( i+5,  j ) 

MIN  FREQ  (GHz)*100  WHERE  FLUX  CALC  VALID 
MIN  VALUE 

MOON  DATA:j=day,I=2=AO,3=Al,4=A2,5=lunar  age(day 

130 


MATRIX  LIST  by  meaning 

for  NBS1X.26,  NBS1A.09,  NBS1B.29,  NBS1C.45,  NBS1D.117 


133 

134 

135 

T( N0,23)s 
M ( N8 , 8)* 
N( 25 , 6) 

N.  DEC. /hr  (deg)  * 1000 
NEF  (kFU) 

NEF(kFU)  esc  coeff 

136 

137 

138 

N(25,  8) 
N( 25 , 5) 
N( 25,  7) 

NEF ( kFU)  esc  coeff  err 
NEF (kFU)  elev  coeff 
NEF(kFU)  elev  coeff  err 

139 

140 

141 

N(25,  1) 
N( 25,  3) 
N(25,  2) 

NEF (kFU)  intercept 
NEF(kFU)  intercept  IS  ERR 
NEF(kFU)  zenith 

142 

143 

144 

N(25,  4) 
N(  1,11) 
D(5,75) 

NEF(kFU)  zenith  IS  ERR 
NO.  of  DAYS  Of  SUN/MOON  DATA 
NO.  of  FREQS 

145 

146 

147 

N(  5,11) 
D( 1 ,73) 

N(  6,1-4) 

NO.  of  FREQS  used  (M6) 

NO. DATA  PTS/SET*100  + NO. PARAMETERS  FIT 
NOISE  ADD  (H9,K)  for  FREQ#1  to  #4 

148 

149 

150 

A(  9)x 
M(N8,  9)* 
N(26,  6) 

NOT  USED 
NUF  (kFU) 

NUF(kFU)  esc  coeff 

151 

152 

153 

N( 26 , 8) 
N( 26,  5) 
N( 26 , 7) 

NUF(kFU)  esc  coeff  err 
NUF(kFU)  elev  coeff 
NUF (kFU)  elev  coeff  err 

154 

155 

156 

N( 26,  1) 
N( 26 , 3) 
N(26,  2) 

NUF ( kFU)  intercept 

NUF (kFU)  intercept  IS  err 

NUF(kFU)  zenith 

157 

158 

159 

N(26,  4) 
D(  3,  1 ) x 
M(40,  1) 

NUF(kFU)  zenith  IS  err 
NUMBER  OF  MEAS(N4) 

NUMBER  OF  SUMMARY  SETS  STORED  IN  MATRIX  M 

160 

161 

162 

M(40,  3) 
M(N8,  8)d 
N(  1,  9) 

NUMBER  OF  FILES  USED  IN  DISK  STORAGE 
NUMBER  OF  POINTS  IN  DIP  CURVE 
NUMBER  OF  POINTS  IN  FIT 

163 

164 

165 

M(N8,  8)x 
D(  4,  1 ) x 
D(T6 , 7)* 

ONT/Tadd:  (F2+Z5)/2 

P/Padd( ave  of  set) :LGT(P/Padd)10~4 

PEAK  # PREDICTED  * 100 
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166 

167 

168 

T( NO, 13)* 
T( NO, 14)* 
N(  I , J ) 

POLZ  ANG  (deg)  * 10 
POLZ  ANG  ERR  (deg)  * 10 

PROG  CONSTS  I <26  : 1 , l=A,2=B,etc ; J , 1 = 1 10=0 , 

169 

170 

171 

A(  7)* 

A(  8) 

D( 1 ,N3+2)x 

PWR  LEVEL, microwatts  (1st  pwr  measured  in  FNU 
PWR  RATIO  CHECK :microbel s/10  (STD  CK  results) 
PWR  WITH  noise  add  OFF  0 BOLO:  LGT(PWR)*10~4 

172 

173 

174 

D(  6,  1 ) x 
M(N8,  4)x 
D(  5,  1 ) x 

PWR  due  to  NOISE  ADD,mW:LGT(PWR#2-PWR#l)*10"4 
PWR  due  to  Ta  (mW) 

PWR#l,mW(ave, noise  add  OFF)  :LGT(PWR)*10~( (E2+E6) 

175 

176 

177 

M(N8,  3)x 
D( 2 ,N3+2  )x 
M(N8,  2)x 

PWR(mW) 

PWR( noi se  add  ON):  LGT ( BO LO  PWR)*10~4 
PWR/Pa 

178 

179 

180 

D(3,N3+2)x 
M(N8,  9)x 
N(  1,  8) 

PWR/Padd  :LGT( P/Padd)*10A4 

Padd(Mw) : (F5+F8)/2 

RATIO  #1  add/#2  add  0 MICROWAVE  FREQ 

181 

182 

183 

N(18,  5) 
N( 18,10) 
A(  5) 

RATIO  #1  add/#2  add  O 30MHz 

RATIO  #ladd/#2add  0 70  :#4=0. 515, #5=0. 526, #6=0. 24 
RELATIVE  HUMIDITYU)  *10 

184 

185 

186 

N(  1,10) 
A(  1) 

M( N8 , 10) 

REWORK  # 

RUN/SET  = ( FREQ#* 1000 ) + N6*100  + N7;  N6=RUN#,N7 
RUN/SET:  N6+N7/100 

187 

188 
189 

T( NO, 16)* 
T ( NO ,17)* 
A( 10)* 

SECULAR  DECAY  of  flux  (%/Yr)*100 
SECULAR  DECAY  of  flux  ERR  (%/Yr)*100 
SITE  ELEVATION  (C0*1000) 

190 

191 

192 

A ( 10 ) x 
T( NO,  5)* 
T( NO,  4)* 

SLANT  DIST(Km):  LGT(E7)*1000 

SPEC  INDEX  SECULAR  EXPN  UNCERTAINTY(%/Yr)*1000 

SPECTRAL  INDEX  SECULAR  EXPANSI0N(%/Yr)*1000 

193 

194 

195 

T( NO,  6)* 
T( NO,  7)* 
M(N8,  l)d 

SPECTRAL  INDEX  * 1000 
SPECTRAL  INDEX  ERR  * 1000 
STAR  #/100 

196 

197 

198 

S ( NO , 1 ) 
T( NO , 1) 
S( NO ,3) 

STAR  FLUX  (F.U. ) 0 STANDARD  FREQ 
STAR/SOLAR  NAME 

STAR=N.  DEC.  ( deg) ; SOLAR=N.  DEC.  0 0 GMT  (deg) 
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199 

200 
201 

S(  NO ,2 ) 

T( N0,18)* 
N(  17&18.1) 

STAR=RT  ASC  ( deg) ;SOLAR=GHA  @ 0 gmt  (deg) 
STD  FREQ(GHz)  * 100 
STORE  STRING  P$ 

202 

203 

204 

T(  9,  1) 
T( 9&10 , 1 ) 
N( 22,11) 

STORE  STRING  P$ 

STORE  STRING  P$ 

SUM  of  (CSC  ELEV  - AVE  CSC  ELEV)A2 

205 

206 
207 

N( 21,11) 
N(  21-1  J) 
T ( NO , 5 ) s 

SUM  of  (ELEV-AVE  ELEV)A2 

SUN  DATA:i=l=date,2=DECL,3=DIST,5=tl ,6=S5(T1) , 
SUN : ( N.  DEC  G>  24GMT  - N.  DEC  AT  0 GMT)*1000 

208 

209 

210 

N(  1,  4) 
N(  5,5-9) 
D( 3 , 74 ) 

SYSTEM  # + (DATA  REVISION  #/100) 
T/Ta  ( B5)  for  FREQ#1  to  #4 
T/Ta  (for  FREQ#1)  * 10A4 

211 

212 

213 

D{  4 , 74 ) 
D(  5,74) 
D(  6 , 74 ) 

T/Ta  (for  FREQ#2)  * 10A4 
T/Ta  (for  FREQ#3)  * 10A4 
T/Ta  (for  FREQ#4)  * 10A4 

214 

215 

216 

M(N8,  3)d 
N(  18,6) 
M(N8,  2)d 

T/Ta  CSC  COEFF  (B6) 
T/Ta  CSC  COEFF 
T/Ta  ZENITH  (b5) 

217 

218 
219 

D(  1,73) 
N( 18,2) 
A(  8)rw 

T/Ta  via  NONLINSFIT  as  LGT(T/Ta)*10A4 

T/Ta  zenith 

T/Ta*10A4 

220 

221 

222 

M(N8,  5)d 
D(  2 , 73 ) 
D(T6,  4)* 

TEMPERATURE ,F  (A(3)/10) 

TIME  END  of  MEAS*100 

TIME  OF  PREDICTED  STAR  MAX:  El*1000 

223 

224 

225 

D(  1,73) 
D(6 ,75) 
M(N8,  4)d 

TIME  START  of  MEAS*100 
TIME(sec)  BETWEEN  MEAS  (3600*E5) 
TIME,  DECIMAL  HRS  (FNT2) 

226 

227 

228 

D(4,N3+2)x 
D(  4,  2)x 
D(2 ,74) 

TIME,hrs(El)*10A3 
TRX  PWR :LGT( E4)*10A4 
Tsky/Ta*10A5 

229 

230 

231 

A(  9)* 
M(N8,M5+5) 
M(N8,  7) d 

U*10A4 : REFERENCE  PWR  via  1st  meas  in  -3  CUT 
VI  accumulation  for  FREQ  M5 
WATER  DENSITY  (L7) 
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232 

M(N8,  7)* 

Y-factor 

233 

D( 5 ,73 ) 

dTstar/Ta  via  NO N L I NSFIT  as  LGT(dTstar/Ta)*l(T4 

234 

M(N8,  5)* 

unused 
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1 

FNX107 

+12  volts,  RF  UNIT rchannel  #4  = 110  1011 

2 

FNX108 

+20  volts,  RF  UNIT :channel  #3  = 110  1100 

3 

FNX  27 

0,100000  V DVM  RANGE 

4 

FNX  28 

1.00000  V DVM  RANGE 

5 

FNX  29 

10.0000  V DVM  RANGE 

6 

FNX  30 

100.000  V DVM  RANGE 

7 

FNX  31 

1000.00  V DVM  RANGE 

8 

FLAG  1 

1 =E I PR  DATA  INPUT 

9 

FNDd(Q) 

= 10"(Q/1E4) 

10 

11 

FNFd8 
FNX  36 

A$=  ! ! ! ! !....! !....! !... 

AC  VOLTS  (not  installed) 

12 

FNO(Q) 

ANS  ROUTINE  SEQUENCE 

13 

FNN(Q) 

ANSWER  ROUTINE: DISPLAYS  Q,  SPACE  = NO  CHANGE 

14 

FNA(NO) 

ANT  POI NT : NO=STAR  # IN :H , LI ,B1 ,E1 ; OUT:A,L,LO 

15 

FNFe  0 

ATTN  SETTING,  FILTER  IDENTIFICATION  HEADING 

16 

FNB(Q) 

BEEP:  Q=#  OF  BEEPS 

17 

read  SW  Y 

BIAND(R0T(RBYTE4,Y)1)=1  IF  SWITCH  Y IS  UP 

18 

KEYb  8 

CALC:STAR  FLUX  0 f 

19 

KEYc  5 

CHANGE  BIAS :HR  ANG,  DECL,  AZ,  ELEV 

20 

KEYc  15 

CHANGE  FREQ  & calc  new  STAR  FLUX 

21 

KEYc  18 

CHANGE  NOISE  ADD  SOURCES  ( C3) :0=#1&#2 ,1=#1 ,2=#2 , 

22 

KEYa  1 

CHANGE  PRGM  CONST  & MODIFY  CORRESPONDING  N(I,J) 

23 

KEYc  8 

CHANGE:  T(syst)/Ta 

24 

KEYc  7 

CHANGE:  Ta  = ADDED  NOISE, K 

25 

KEYc  6 

CHANGE :input  ATTN  (dB),  FILTER  # 

26 

KEYe  3 

CHECK  CHANNEL  VOLTAGES 

27 

KEYe  2 

CHECK  DVM 

28 

KEYe  1 

CHECK  LIST 

29 

KEYe  6 

CHECK  NOISE  ADD  STABILITY 

30 

KEYe  4 

CHECK  PRGM  ATTENUATORS 

31 

KEYe  5 

CHECK  PWR,TYPEIV  & ATTN  STABILITY 

32 

FNX105 

CRYSTAL  DIODE  voltage:  channel  #6  = 110  1001 

33 

FNG(Q) 

CURVE  FIT :0=INIT,-99=CALC  FIT  ( out : I ,R2 ,W1 ,V5 , 
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34 

FNX106 

D/A  OUTPUT  channel  #5  = 110  1010 

35 

FNX104 

D/A  REFERENCE  voltage:  channel  #7  = 110  1000 

36 

FNX  32 

DC  FILTER  OUT 

37 

FNX  33 

DC  FILTER  IN 

38 

FNX109 

DEW  POINT :channel  #2  = 110  1101 

39 

FLAG  1 

DISK  STORAGE  (F7)  <prgm  A> 

40 

FNI(Q) 

DRAW  LI NE  :1  -;2  — ;3  ==;4  ##;5  @0 

41 

FNT(Q) 

DUMMY  USED  IN  ERROR  PRT  OUT  IN  ME AS 

42 

FNX  24 

DVM  AUTORANGE 

43 

KEYc  2 

EIRP  :START  0 SET  ? 

44 

KEYd  3 

ENTER  TEMP ,A( 3 ) ; AND  DEW  PT  ,A(4)  USED  IN  REWORK 

45 

read  DVM 

ENTER ( 2 ,* ) A , B : A=FUNCTION,  B=VOLTAGE 

46 

read  CLOCK 

ENTER(3,*)C,D:C=#1  THUMB  SW,D=SW  #2  #3  #4  HHMM.S 

47 

FNE(NO) 

ERROR  CALC  FOR  G/T:  NO=STAR  # 

48 

FNUd  10 

ERROR, abs  in  G/T(etc)  at  L,98%  probable  STUDENT 

49 

FLAG  2 

G/T  ERRORS  CALCULATED  FOR  SPECIFIC  FREQ  & DATE 

50 

FNL  1.1 

G/T  err  TABLE:  no  print  variables 

51 

FNL  1.2 

G/T  err  TABLE:  print  variables 

52 

FNL  1 

G/T  plot  ( J = 1 9 ) 

53 

FNL  2.1 

G/Ta  err  TABLE:  no  print  variables 

54 

FNL  2.2 

G/Ta  err  TABLE:  print  variables 

55 

FNL  2 

G/Ta  plot  ( J =20 ) 

56 

F NX 111 

GROUND  DVM :channel  #0  = 110  1111 

57 

FLAG  9 

HEADING  :1  = BYPASS  DATE , FREQ ,ATN  DIAM.G, G/T, G/Ta 

58 

FNH(Q) 

HEADINGS:  0=FIT  #,  1=TAPE  # 

59 

FNAd(Q) 

HPBW  of  ant(deg) , Q=HPBW*(deg) ,IN:NO 

60 

FNQd( L) 

HPBW  of  ant  (min)  at  elev  L 

61 

FNL  3 

HPBW#1  plot  ( J =2 1 ) 

62 

FNL  4 

HPBW#2  plot  ( J =22 ) 

63 

FND(Q) 

I NIT  HARDWARE:  0=VTVM, BRG , NOISE  0 NOMINAL,  1= INI 

64 

FNX100 

J357  INPUT(e.g.  ext  pwr  meter) :channel  #11  = 110 

65 

FNK(NO) 

K-FACTOR  CALC,e.g.  K1,K2,...,K9 

66 

FNJ(Q) 

KEY  SUB:  Q=KEY  #,  SEE  KEY  LIST 
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67 

68 
69 

KEYc  19 
KEYa  2 
KEYc  14 

LAST  MEASUREMENT :i ni tiates  storage  steps 
LINK:  1=SITE  PREP,  2-MEAS,  3=REW0RK 
LIST  CURRENT  DATAMAT  D 

70 

71 

72 

FNUd  0 
FNUd  1 
FNM(Q) 

LOAD  from  (F7),  0=INT,  I=EXT 
LOAD:START#, STOP#, STEP  (U,U1,V) 
METEOROLOGICAL  INF0:0=INPUT  DATA,1=PRT  DATA, 

73 

74 

75 

FNUd  6 
FNUd  8 
FNUd  4 

MOON  FLUX  for  day  D4 

MOON  FLUX  parameters  PRINT  OUT 

MOON  OPTICAL  DIAM(deg);  for  day  D4  via  data  in  M 

76 

77 

78 

FNX  76 
FNL  7 
FNX  68 

NO  RF  to  BOLOMETER  (avoid  - use  FNX68) 
NEF  plot  ( J = 25 ) 

NO  RF  TO  BOLOMETER 

79 

80 
81 

FNX  64 
FNX  72 
FNX  80 

NO  RF  to  BO LOMETER&STD  PAD  IN 

NO  RF  to  BOLOMETER  & STD  PAD  IN  (avoid-USE  FNX64 

NOISE  ADD  #1  & #2  ON 

82 

83 

84 

FNX  81 
FNX  82 
FNX  83 

NOISE  ADD  #1  & #2  OFF 

NOISE  ADD  #1  ON 

NOISE  ADD  #1  OFF 

85 

86 
87 

FNX  84 
FNX  85 
FNX  88 

NOISE  ADD  #2  ON 
NOISE  ADD  #2  OFF 

NOISE  ADD  #1  & #2  ON  (avoid  - use  FNX80) 

88 

89 

90 

FNX  89 
FNX  90 
FNX  91 

NOISE  ADD  #1  & #2  OFF  (avoid  - use  FNX81 ) 
NOISE  ADD  #1  0N( avoid  - use  FNX82) 

NOISE  ADD  #1  OFF (avoid  - use  FNX83) 

91 

92 

93 

FNX  92 
FNX  93 
FNL  8 

NOISE  ADD  #2  0N( avoid  - use  FNX84) 
NOISE  ADD  #2  OFF( avoid  - use  FNX85 ) 
NUF  plot  ( J=26) 

94 

95 

96 

FNX  40 
FNX  96 
FNX  97 

OHMS  (not  installed) 

OPENS  MULTIPLEXER  so  can  use  front  panel 
OPENS  MULTIPLEXER  so  can  use  front  panel 

i nputs 
inputs 

97 

98 

99 

FNX  98 
FNX  99 
FNC(Q) 

OPENS  MULTIPLEXER  so  can  use  front  panel  inputs 
OPENS  MULTIPLEXER  so  can  use  front  panel  inputs 
PAGE  HEADING:  Q=#  SPACES  BEFORE  PRT  HEADING 
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100 

FNY(Q) 

PLOT  DATA:  1=PRT  HEADING 

101 

FNX127 

PORT  1 selected 

102 

F NX 126 

PORT  2 selected 

103 

FNX125 

PORT  3 selected 

104 

FNX124 

PORT  4 selected 

105 

FNX  48 

PRGM  ATTN  =15dB 

106 

FNX  49 

PRGM  ATTN  =14dB 

107 

FNX  50 

PRGM  ATTN  =13dB 

108 

FNX  51 

PRGM  ATTN  =12dB 

109 

FNX  52 

PRGM  ATTN  =lldB 

110 

FNX  53 

PRGM  ATTN  =10dB 

111 

FNX  54 

PRGM  ATTN  = 9dB 

112 

FNX  55 

PRGM  ATTN  = 8dB 

113 

FNX  56 

PRGM  ATTN  = 7dB 

114 

FNX  57 

PRGM  ATTN  = 6dB 

115 

FNX  58 

PRGM  ATTN  = 5dB 

116 

FNX  59 

PRGM  ATTN  = 4dB 

117 

FNX  60 

PRGM  ATTN  = 3dB 

118 

FNX  61 

PRGM  ATTN  = 2dB 

119 

FNX  62 

PRGM  ATTN  = ldB 

120 

FNX  63 

PRGM  ATTN  = OdB 

121 

FNQ(Q) 

PRGM  const(MAT  N) :l=LIST,2=correct,3=N( I ,J ) 

122 

FNFd  4 

PRINT  OUT  FIT  RESULTS .REWORK  # etc ,HPBW,T/Ta 

123 

FLAG  7 

PRT  OUT  ERR : l=W/0  CONSTS 

124 

KEYb  12 

PRT : ELEV  vs  GMT 

125 

KEYb  11 

PRT: LIST  OF  ALTERNATE  STAR  ERR 

126 

KEYb  7 

PRT :SITE&FLUX  DATA 

127 

KEYb  9 

PRT  :TYPICAL  G/T  VALUES  AND  ERRORS 

128 

FNX103 

PRW  BRDG  OUTPUT:  channel  #8  = 110  0110 

129 

FNX101 

PWR  BRDG  vs  FINE  REF:  channel  #10  = 110  0101 

130 

FNX102 

PWR  BRDG  vs  REF  VOLT,  set  fine  volt:ch  #9  = : 

131 

FNP(Q) 

PWR  MEAS  : 0=#1  <&#2 , 1 =#1 ,2=#2,3=PWR,mW(  IN:A3,C3 

132 

FNU(Q) 

PWR  RATIO  CHECK:  IN:C2,B2,C3  OUT :A( 7 ) ,A(8 ) 
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133 

134 

135 

FNVd  5 
FNX  34 
read  SW 

Q=FNF2  & RETURN 
RATIO:  FILTER  IN 

RBYTE  4=INTEGER  SUM  OF  BINARY  SWITCHES 

136 

137 

138 

FNR(Q) 
KEYc  3 
FNFd  0 

READ(ENTER  DATA)  DEVICE : 2= DVM, 3= CLOCK ,4= BREAK  SW 
REFIT  5 CUTS:  USED  AFTER  ONE  CUT  IS  RETAKEN 
RESTART 

139 

140 

141 

FNVd  0 
KEYa  0 
KEYd  1 

RESTART 
RESTART 
RESTART  @ N=? 

142 

143 

144 

KEYb  0 
KEYe  0 
KEYd  0 

RESTART :0=RESTART,1=LINKMEAS,2=REW0RK ,3=KEY  LIST 
RESTART :0=KEY  LIST,1=AUT0  CK,2=N0  AUT0(F2=0) 
RESTART :0REW0RK,1 LOAD, 2AUT0  SEQ,3DEL,4G/T,5FIT, 
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146 

147 

KEYc  0 
FNFa  1 
FNX  69 

RESTART :1SKY,2G/T,3EIRP ,4LNK ,5NEW  TAPE,OMASTER  R 
REWIND  I NT  CASSETTE 
RF  TO  BOLOMETER 

148 

149 

150 

FNX  65 
FNX  73 
FNX  77 

RF  to  BOLOMETER&STD  PAD  OUT 

RF  to  BOLOMETER  & STD  pad  OUT  (avoid-USE  FNX65) 

RF  to  BOLOMETER  (avoid  - use  FNX69) 

151 

152 

153 

FNFb  0 
KEYd  5 
FNFc  1 

SITE:  W.  long,  N.  Tat,  alt 

SORT, FIT  and  LIST  DATA 

SOURCE#  CHANGE,  RESET  MAT  A & MAT  D 

154 

155 

156 

FNS(Q) 
KEYc  4 
FLAG  1 

SPACE  PAGE  Q SPACES 

STAR  FIX:routine  to  estab  ANT  BIAS 

STAR  FLUX  CALC  FOR  SPECIFIED  FREQ  & DATE 

157 

158 

159 

FNUd  9 
FNX  66 
FNX  74 

STAR  FLUX  PRINT  OUT 
STD  ATTN  IN 

STD  ATTN  IN  (avoid  - use  FNX66) 

160 

161 

162 

FNX  67 
FNFc  0 
FNX  75 

STD  ATTN  OUT 

STD  VALUE (A3)  CHANGE 

STD  attn  OUT  (avoid  - use  FNX67) 

163 

164 

165 

FNVd  12 
KEYc  11 
KEYd  7 

STOREMAT  M & MAT  N 

STORE  INT:  MAT  N,S,T  and  PRGM 

STORE  MAT  M & MAT  N 
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FUNCTION,  KEY,  & FLAG  LIST  alphabetical  by  meaning 


166 

167 

168 

KEYb  10 
KEYc  12 
FNUd  5 

STORE:  S,T,N 

STORE  :MAT  M( summary  data),N(prgm  consts) 
SUN  FLUX  for  day  D4,  time  tl 

169 

170 

171 

FNUd  7 
FNUd  3 
FNX110 

SUN  FLUX  parameters  PRINT  OUT 
SUN  microwave  DIAM(deg)  at  freq  F 
TEMP  (F/100) channel  #1  = 110  1110 

172 

173 

174 

FNT(Q) 
KEYb  2 
KEYb  13 

TIME, DECIMAL  HRS:1=SET  UP  El  (IN:  E3,E5,N4) 
UPDATE:  FREQ, BW, ANT  PARAMETERS 
UPDATE:  N(I,J) 

175 

176 

177 

KEYb  3 
KEYb  1 
KEYb  6 

UPDATE: ANT  POINTING  ERROR 
UPDATE: RUN#, DATE, SITE 
UPDATE :SUN/MOON  ALMANAC  DATA 

178 

179 

180 

KEYb  4 
KEYb  5 
FNV(Q) 

UPDATE :T,G/T,Ta,PWR  RESP 
UPDATE :TEMP,  DEW  PT 

VOLTAGE  READING:volt  range  + channel  #/100 

181 

182 

183 

FNW(Q) 
FNZ(NO) 
FNL  6 

WAIT  Q MILLISEC 

Xi=FNK( N0)*Cl*S(N0,4)*lE-26 

Y-factor  plot  ( J =24 ) 

184 

185 

186 

FNVd  13 
FNTd(L) 
FNVdl 

calc  B,B0,B2,G  via  B2,G-diff=C7,Ta=H9,B9 
calc:  ANT  HPBW#l(min  of  arc) 
calc:  G/T,G/Ta,NEF,NUF  errors 

187 

188 
189 

FNVd  3 
FNVd  4 
KEYd  2 

calc:  GRAPH  RANGES  for  AUTO  SEQ 
calc:  LINEAR  & CSC  FIT  PARAMETERS 
calc  :STAR  FLUX  VALUES, Ta.eff  area 

190 

191 

192 

FNFc  3 
FNVd  9 
KEYc  16 

calc  :T,R1 ,15 

calc  :Ta(H9)  via  G at  30degG=B2*( D*F/0.3.3)~2 
change:#  MEAS  PTS,  # PTS  IN  FIT  ZONE 

193 

194 

195 

FNVd  6 
FNVd  2 
KEYc  17 

change :*HPBW,CSC  COEFFi.e.  N( 21 ,2) ,N( 21 ,6) 
Change  :ANT  DIAM,SITE  E LEV, NEW  MOON  DATA, FREQ 
change :G/Ta=B7  set:Ta  H9=G/10" ( B7/10) 

196 

197 

198 

KEYc  9 

FNMb 

FNGb(Q) 

change:INSERT  5DB  WHEN  T ( ADD) ? 
convert :DEG, MIN, SEC  to  DECIMAL  DEGREES 
convert:Q  in  decimal  DEG  to  DEG.MMSS 
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8.  COMPUTER  PROGRAM  LISTINGS 


In  this  section,  the  flow  charts  for  the  computer  programs  are  printed  followed  by  a listing  of 
the  program.  Following  the  program  listing  is  a cross  reference  list  of  the  program  constants  and  of 
all  the  line  numbers  where  these  constants  occur.  The  meanings  of  the  program  constants  are  given  in 
section  7. 

The  numbers  on  the  flow  charts  are  the  line  numbers  in  the  computer  program.  When  a subroutine 
is  called  for  in  a program  step,  the  line  number  of  the  beginning  of  the  subroutine  and  the  name  of 
the  subroutine  are  enclosed  in  parentheses. 

TABLE  5.  Funtions  contained  in  X - SUBROUTINES. 


LINE 

FUNCTION 

COMMENT 

510: 

FNA(NO) 

ANT  POINT :N0=STAR  # IN:H,L1,B1,E1;  0UT:A,L,L0 

900: 

FNB(Q) 

BEEP:  Q=#  OF  BEEPS 

1470: 

FNC(Q) 

PAGE  HEADING:  Q=#  SPACES  BEFORE  PRT  HEADING 

150: 

FND(Q) 

I NIT  HARDWARE:  0=VTVM,BRG, NOISE,  1=PWR  BRG 

1020: 

FMI(Q) 

DRAW  LINE :1  -;2  — ;3  ==;4  ##;5  @0 

1100: 

FNK(NO) 

K-FACTOR  CALC,e.g.  K1,K2,...,K9 

960: 

FNN(Q) 

ANSWER  ROUTINE: DISPLAYS  Q,  SPACE  = NO  CHANGE 

210: 

FNP(Q) 

PWR  ME AS :0=#1&#2 ,1=#1 ,2=#2 ,3=PWR,mW( I N :A3 , C3 , B2 , 

120: 

FNR(Q) 

READ( ENTER  DATA)  DEVICE :2=DVM,3=CL0CK ,4=BREAK  SW 

1790: 

FNS(Q) 

SPACE  PAGE  Q SPACES 

1430: 

FNW(Q) 

WAIT  Q MILLISEC 

70: 

FNX(Q) 

EQUIPMENT  MULTIPLEX  FUNCTION  (see  section  7.3) 

1460: 

FNZ(NO) 

Xi=FNK( N0)*C1*S( N0,4)*lE-26 
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50 

60 

70 

80 

90 

100 

110 

120 

122 

124 

130 

140 

142 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

252 

254 

256 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 


8.1  X - SUBROUTINES 


X$="X .27*  <Dl-4>  T2=4" 

GOT  3960 
DEF  FNX(Q) 

FORMAT  B 

WRITE  ( 4 » 80 ) WBYTEQ ; 

WAIT  50 
RETURN  0 
DEF  FNR(Q) 

IF  Q=4  THEN  142 
WAIT  40 

ENTER  (Q,*)Q1  ,Q 
RETURN  Q 
RETURN  RBYTE4 
DEF  FND(Q) 

IF  Q THEN  180 

RETURN  FNX68+FNX67+FNX63+FNX81+FNX33+FNX127 
Q=FNX68+FNX28+FNX102+FNW460+FNR2+FNR2 
V=FNX68+FNX29+FNX103+FNW550+FNR2+FNX111+FNX27+FNW100 
RETURN  0 
DEF  FNP(Q) 

IF  E2  >=  0 THEN  240 
E2=0 

IF  E2 < 16  THEN  260 
E2=15 

IF  E2 <16  THEN  260 
PRINT  "PWR  ERR" 

STOP 

IF  Q>2  THEN  440 

V7=FNX67+FNX68+FNX(63-E2 )+FNX(81+2*Q)+FNX101+FNX27+FNW460+FNR2 
V8=FNX69+FNW460+FNR2 

V9=FNX ( 67- C2 )+FNX ( 80+2*Q )+V7+FNW460-FNR2 
V8=FNX ( 81+2*Q )+FNX67+FNW460+V7-( V8+FNR2 )/2 
IF  ABS(V7+V8+V9+V)>lE+70  THEN  400 
Q1=V8*(2*V-V8) 

Q2=V9*(2*V-V9) 

Q3=( 1-C2+C2*A3)*Q2 

IF  Q1 >0 .096  OR  Q2>0 .096  THEN  370 

E2=E2-1 

IF  Q1 <0.132  AND  Q2<0 . 132  THEN  390 
E2=E2+1 

RETURN  Ql/( Q3-Q1 ) 

PRINT  "REZERO" 

E2=E2+1 

Q1=FNX( 63-E2 )+FNDO+FNDl 
GOTO  252 

V7=FNX68+FNX101+FNX27+FNW460+FNR2 

V8=FNX69+FNW460+FNR2 

V9=FNX68+FNW460+FNR2 

V=FNX103+FNX29+FNW460+FNR2 

IF  ABS(V7+V8+V9)>lE+70  THEN  400 

Ql=( V7+V9)/2-V8 

RETURN  Ql*( 2*V-Q1 )*5 
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510 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

692 

694 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 


X - SUBROUTINES  (con'd) 


DEF  FNA(NO) 

E8=24/360/C0SS[ NO ,3] 

E9=((El+H*E8)/24)*24. 06570982 

IF  T[ NO ,21 ]=0  THEN  580 

E=S[N0,2]+(E1+H*E8)*T[N0,11]/1000-C4 

GOTO  650 

E9=E9+C6*24/360 

IF  E9  >=  24.06570982  THEN  610 

GOTO  630 

E9=E9-24 

GOTO  590 

E9=E9*360/24 

E=E9+360-S[ NO ,2]-C4 

IF  E >=  360  THEN  670 

GOTO  690 

E=E-360 

GOTO  650 

Ql=( 4*T[N0 ,12]-T[ NO  ,5] )/24000 
Q2=(T[N0,5]-2*T[N0,12] )/288000 
Q=S[N0,3]+T[N0,21]*(Ql*El+Q2*Er2)  + Ll+Bl 
L=SINC5*SI NQ+C0SC5*C0SQ*C0SE 
L=ATN( L/SQR ( l-L*L+lE-99) ) 

A=SI NQ/C0SC5/C0SL-TANC5*TANL 

A=ATN(SQR( l-A*A)/(A+lE-99) )+2*ATNlE+99*(A<0) 

IF  E <=  -180  THEN  780 

IF  E <=  0 THEN  820 

IF  E <=  180  THEN  780 

GOTO  790 

A=360-A 

IF  T[N0,21]=0  THEN  820 
Q=T[NO, 131/1000 

L= L-ATN(  COSL*SI NQ/( 1-SI NL*SI NQ) ) 

Q=LO=L 
FOR  1=1  TO  4 

Q0=(  L8/TANQ-L9/(TAMQ‘'2)  )/60 

Q=QO+L 

NEXT  I 

L=Q 

RETURN  A 
DEF  FNB(Q) 

FOR  1=1  TO  Q 
BEEP 

WAIT  ABS ( 100* ( 1-4) ) 

NEXT  I 
RETURN  0 
DEF  FNN(Q) 

DISP  "(  =NC):";Q; 

INPUT  B$ 

IF  B$[l ,1]="  " THEN  1010 
RETURN  V AL ( B$) 
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1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 


X - SUBROUTINES  (con'd) 


RETURN  Q 
DEF  FNI(Q) 

A$=" ===  = ####0000“ 

A$=A$[4*Q-3 ,4*Q] 

A$[5]=A$ 

A$[9]=A$ 

FORMAT  F5.1 

WRITE  (15 ,1070)A$;A$;A$;A$;A$ 

RETURN  0 
DEF  FNK(NO) 

L7=256*EXP(0.111*(A[4]/10)A0.78)/( 5*( A[3]/10-32 )/9+273 . 16 ) 

Q=(0. 9211/(1+0. 29 12/FA2) +5. 107* ( l+3596/FA2 )/( l-3596/FA2 ) A2 ) 

Q2=293/((A[3]/10-32 )*5/9+273 .15 ) 

G4=6.644E-03*(1-0.02252*C0)A10.52*Q2A2.75*Q 

Q=l-0 .02215*( 11 .02- CO ) *Q2 

L4=5 . 145/ Q2* ( 1-QA8.775)+3.172*QA7.775 

Q=( 1+493. 3/FA2)/( 1-493. 3/FA2)A2*L7*(  1+0. 0046*L7) 

G5=1.451E+05*( 1-0. 02252*00 )A5.262*EXP(-644*Q2/293)/(l/Q2*293)A3*Q 
L5=2.09+0.27*( 1-Q2A2) 

G6=2 .529E-02*( 1-0.02252*00) A 5. 262*FA 2/ ( 1/Q2*293) A 1 .5*  L7* ( 1+0 .0046* L7 ) 
L6=2 .17 

Z1=G4*L4+G5*L5+G6*L6 

L8=Q2*(0.9227*( 1-0. 02252*00) A5. 262+0. 0202*L7) 

L9=0 .013 

K1=10A(-Z1/10/SINL) 

B4=293/Q2*( 1-K1 )/l .0716 
Q2=(T[N0,9]/100/(1.2012*B))A2 
K2=( 1-EXP ( -Q2 ) ) /Q2/1 .001 
K3=l 

Q=(W/F/2E+03)A2 

K4= 1 

K5=l 

K6=l 

K7=l 

J1=10A ( — 0 . 000 11*F*F/SINL) 

K8= 1 - ( 1-J1 )*EXP( -0.467*Q2) 

Q=l+( 2.909E-04 )*( L8-2*L9/TANL)/(  SI  NL) A2 
S=l/Q 

K9=l- ( 1-S)*EXP ( -0.467*02 ) 

K=K1*K2*K3*K4*K5*K6*K7*K8*K9 
RETURN  K 
DEF  FNW(Q) 

WAIT  Q 
RETURN  0 

DEF  FNZ ( NO ) = F NK ( NO ) * Cl *S  C NO ,4]*lE-26 
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1470 

1475 

1477 

1480 

1482 

1484 

1490 

1510 

1520 

1530 

1540 

1550 

1560 

1568 

1570 

1572 

1574 

1590 

1600 

1610 

1620 

1630 

1640 

1660 

1670 

1690 

1700 

1705 

1710 

1720 

1725 

1728 

1730 

1734 

1735 

1736 

1738 

1790 

1800 

1810 

1820 

1830 


X - SUBROUTINES  (con'd) 


DEF  FNC(Q) 

N5=N5+1 

IF  STAT3=0  THEN  1590 
IF  N5> 1 THEN  1490 
DISP  "YEAR"; 

D4=FNB2+FNND4 

Q=FNSQ 

Q=FNR3 

IF  Q<10~9  THEN  1570 
PRINT 

DISP  "CLOCK  RESET"; 

INPUT  Q1 
GOTO  1490 
FORMAT  F2.0.F11.2 
OUTPUT  (A$ ,1568 )Q1 ,Q 
FORMAT  26X ,F5 .0 ,2F2 .0 

WRITE  ( 15 , 1572 ) D4 , "/" ,A$[2 ,2] ;A$[4 ,4] , ,A$[5 ,6] , " \A$[7,8], 

Q=20 

PRINT  H$;" : ";X$[1,4] ,TAB50 ,X$[5] 

PRINT 

PRINT 

FORMAT  35X,F4.0,"-",/,"Sysm  #" ,F5.2,61X,"RUN" ,F3.0 

WRITE  ( 15 , 1630)-N5 , N[1 ,4] , N6 

PRINT 

PRINT  TAB20 ,P$[13] 

IF  FLAG9  THEN  1738 

PRINT  TAB(Q) ,P$[1 ,3] ;" : ";P$[9,12];"  ";P$[4,6];"  ";P$[7,8]; 

FORMAT  " ( " ,F9.3 , " ) " ,/ , 19X 

WRITE  ( 15 , 1705 ) C; 

FORMAT  F5.0,"  MHz(",F2.0 
B$="#ox. " 

FOR  M5=l  TO  N[5,ll] 

WRITE  (15 ,1720)1000*N[5 ,M5] ; B$[M5 ,M5] 

NEXT  M5 
M5=l 
Q=FNS2 
RETURN  0 
DEF  FNS(Q) 

FOR  1=1  TO  Q 
PRINT 
NEXT  I 
RETURN  0 


/ 


" : " ,A$[9 ,1] 
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CROSS  REFERENCE  LIST  for  X - SUBROUTINES 


SYMBOL 


REFERENCE  LINE 


142 

180 

122 

160 

220 

430 

240 

220 

260 

240 

370 

350 

390 

370 

400 

310 

480 

440 

260 

580 

550 

590 

620 

610 

590 

630 

600 

650 

570 

680 

670 

650 

690 

660 

780 

740 

760 

790 

770 

820 

750 

790 

1010 

990 

1490 

1480 

1560 

1570 

1520 

1590 

1477 

1738 

3960 

A 

A$ 

1690 

60 

720 

1030 

1570 

730 

1040 

780 

1050 

890 

1060 

1080 

A$[ 

1040 

1050 

1060 

1574 

A3 

340 

A[ 

1120 

1140 

B 

1280 

B$ 

980 

1000 

1725 

B$[ 

990 

1730 

B1  694 

B4  1270 

BEEP  920 
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CROSS  REFERENCE  LIST  for  X - SUBROUTINES 


c 

CO 

Cl 

1710 

1150 

1460 

1160 

1190 

1210 

1240 

C2 

290 

340 

C4 

560 

640 

C5 

700 

720 

C6 

580 

D4 

1484 

1574 

DISP 

970 

1482 

1540 

E 

560 

640 

650 

670 

700 

740 

750 

760 

El 

540 

560 

694 

E2 

220 

230 

240 

250 

270 

360 

380 

410 

420 

E8 

530 

540 

560 

E9 

540 

580 

590 

610 

630 

640 

ENTER 

130 

F 

1130 

1180 

1210 

1310 

1360 

F2 

1568 

1572 

1720 

F3 

1630 

F4 

1630 

F5 

1070 

1572 

1630 

1720 

F9 

1705 

FLAG9 

1690 

FNA( 

510 

FNB( 

900 

FNB2 

1484 

FNC( 

1470 

FMD( 

150 

FNDO 

420 

FND1 

420 

FNI( 

1020 

FNK( 

1100 

1460 

FNN( 

960 

FNND4 
FNP  ( 
FNR( 


1484 

210 

120 
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CROSS  REFERENCE  LIST  for  X - SUBROUTINES 


FNR2 

FNR3 

FNS( 

180 

300 

1510 

1790 

190 

440 

270 

450 

280 

460 

290 

470 

FNS2 

1736 

FNSQ 

1490 

FNW( 

1430 

FNWIOO 

190 

FNW460 

180 

270 

280 

290 

300 

440 

450 

460 

470 

FNW550 

190 

F NX  ( 

70 

270 

290 

300 

420 

FNX101 

270 

440 

FNX102 

180 

FNX103 

190 

470 

F NX 111 

190 

FNX127 

170 

FNX27 

190 

270 

440 

FNX28 

180 

FNX29 

190 

470 

FNX33 

170 

FNX63 

170 

FNX67 

170 

270 

300 

FNX68 

170 

180 

190 

270 

440 

460 

FNX69 

280 

450 

FNX81 

170 

FNZ( 

1460 

G4 

1150 

1230 

G5 

1190 

1230 

G6 

1210 

1230 

H 

540 

560 

H$ 

1600 

I 

840 

870 

910 

930 

940 

1800 

1820 

J1 

1360 

1370 

K 

1410 

1420 

148 


CROSS  REFERENCE  LIST  for  X - SUBROUTINES 


K1 

K2 

K3 

1260 

1290 

1300 

1270 

1410 

1410 

1410 

K4 

1320 

1410 

K5 

1330 

1410 

K6 

1340 

1410 

K7 

1350 

1410 

K8 

1370 

1410 

K9 

1400 

1410 

L 

700 

710 

720 

810 

820 

860 

880 

1260 

1360 

1380 

LO 

820 

LI 

694 

L4 

1170 

1230 

L5 

1200 

1230 

L6 

1220 

1230 

L7 

1120 

1180 

1210 

1240 

L8 

850 

1240 

1380 

L9 

850 

1250 

1380 

M5 

1728 

1730 

1734 

1735 

MAT 

1070 

1568 

1572 

1630 

1705 

1720 

NO 

510 

530 

550 

560 

640 

690 

692 

694 

790 

800 

1100 

1280 

1460 

N5 

1475 

1480 

1640 

N6 

1640 

N[ 

1640 

1728 

1730 

1 — 1 
Q_ 

1670 

1700 

Q 

0 

122 

130 

140 

150 

160 

180 

210 

260 

270 

290 

300 

694 

700 

720 

800 

810 

820 

850 

860 

880 

900 

910 

960 

970 

1010 

1020 

1040 

1130 

1150 

1160 

1170 

1180 

1190 

1310 

1380 

1390 

1430 

1440 

1470 

1490 

1510 

1520 

1570 

1590 

1700 

1736 

1790 

1800 

QO 

850 

860 
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CROSS  REFERENCE  LIST  for  X - SUBROUTINES 


Ql 

130 

320 

350 

370 

390 

420 

490 

500 

690 

694 

1550 

1570 

Q2 

330 

340 

350 

370 

692 

694 

1140 

1150 

1160 

1170 

1190 

1200 

1210 

1240 

1270 

1280 

1290 

1370 

1400 

03 

340 

390 

RBYTE4 

142 

S 

1390 

1400 

STAT3 

1477 

S[ 

530 

560 

640 

694 

1460 

TAB20 

1670 

TAB50 

1600 

T[ 

550 

560 

690 

692 

694 

790 

800 

1280 

V 

190 

310 

320 

330 

470 

500 

V7 

270 

290 

300 

310 

440 

480 

490 

V8 

280 

300 

310 

320 

450 

480 

490 

V9 

290 

310 

330 

460 

480 

490 

W 

1310 

WBYTEQ 

90 

WRITE 

1080 

1574 

1640 

1710 

1730 

X 

90 

1572 

1630 

1705 

x$[ 

60 

1600 

Z1 

1230 

1260 

LINES:  179 

BYTES:  4361 

SYMBOLS 

: 150 

REFERENCES:  443 
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8.2  E - EQUIP  CHECK  flow  diagram 


RUN 

I 


3700: 

3890: 

3920: 

3940: 

3962: 

3968: 

4022: 

4200: 


>>- 


- — INITIALIZE 

PRGM:  5=EXT  TAPE,  10= I NT  TAPE 

I 

LOAD  KEY 

MERGE  X-SUBROUTINES 

I 

ETMS  SYSTEM  S/N? 

I 

LOAD  DATA,  N 

I 

SET  UP  PROGRAM  CONSTANTS 

I 

I 

TRAP:  0=KEY  LIST,  1=AUT0  CK 

I I 

I 4466 : 


4270: 

4340: 


PRINT  KEY  LIST 
goto  TRAP  


>4200 : 


4466:  » 4=AUT0  CK 

I 

4468:  DO  CHECK  LIST  & DVM:  0=N0, 

I 

4478: 


4476: 

(4530:  FNJ1) 

DO  CHECK  LIST 

4476: 

(4830:  FNJ2) 

CHECK  DVM 
1 

4478: 

> 

1 

0=N0 

4478: 

(7910:  FNJ3) 

CHECK  CHANNEL  VOLTAGES 

4478: 

(5020:  FNJ4) 

CHECK  PRGM  ATTENUATORS 

4478: 

(5870:  FNJ5.1) 

CHECK  PWR  STABILITY 

4478: 

(5870:  FNJ5) 

CHECK  PWR  LINEARITY 

4478: 

(8650:  FNJ6) 

CHECK  SIMULATED  NOISE  ADD  STABI 

4478: 

(7910:  FNJ3) 

RECHECK  CHANNEL  VOLTAGES 
| 

4480: 

CONNECT  EARTH 

TERMINAL  & SET  PWR  LEVEL? 

l 

4500: 

(8560:  FNJ6.1) 

1 

CHECK  RF  NOISE  ADD  STABILITY 
| 

4510: 

STOP 

1=YES 

I 

I 

I 
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8.3  E - EQUIP  CHECK  computer  listing 


R=500 

DISP  "PRGM  :5=EXT  TAPE/DISK ,10=INT  TAPE"; 

INPUT  Q 
PRINT  Q 

LOAD  KEY  #Q  ,2 
Q=RES 

MERGE  #Q ,4,50,50 

H$="E.22M  EQUIP  CK  <D7-F0>  Tl-FO" 

PRINT  " ETMS  SYSTEM  S/N 
INPUT  Q 

IF  Q<3  OR  Q>6  THEN  3962 
LOAD  DATA  #RES,2*Q,N 
REWIND  #RES 

DIM  A$[72],B$[11],D$[25],H$[72],L$[25],P$[72],X$[30],NS[26,11],MS[128,6] 

R=A=A1=A2=C=C2=C3=C8=C9=E6=F1=F2=F3=F4=F5=F6=F7=F9=0 

H=I=I5=I6=J=J1=M=M1=M2=N=N1=N2=N3=N5=N6=05=06=0 

P=P0=P1=P2=P3=P5=P6=Q=Q0=Q1=Q2=Q3=Q4=R1=R2=R5=S=S1=S2=T0=T1=T2=T3=T4=0 

V=V1=V2=V7=V8=V9=0 

X2=X3=X4=Z=0 

A3=10A(N[13, 10]/10) 

A8=N[18,10] 

C8=70 

C9=5.3 

D=60 

D4 =1979 

H=3 .5 

F=7 

E2=l 

G=10"4 

M6=l 

T=100 

P$[l  ,12]  = "" 

SFLAG  9 

Q=FNJO 

STOP 

DEF  FNF(Q) 

GOTO  8500 
R=501 

DEF  FNV (Q)=FNX(31-I NTQ)  + FNX ( 111- ( Q- 1 NTQ ) * 100 ) +FNW1000+FNR2 

R=502 

DEF  FNJ(Q) 

GOTO  Q OF  4530,4830,7910,5020,5870,8560,9500,4180,4350 
P$[ 13]="KEY  0:  CHECK  LIST  AND  KEY  LIST" 

Q=FNS2 
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E - EQUIP  CHECK  computer  listing  (con't) 


4200  R=503 

4202  F2=0 

4204  STANDARD 

4210  DISP  "0=KEY  LIST,1=AUT0  CK"; 

4220  Q=FNB2+FNN1 
4230  GOTO  Q OF  4466 
4240  PRINT 
4250  PRINT 
4260  A=18 

4270  PRINT  TABA"KEY  0:  RESTART" 

4280  PRINT  TABA"KEY  1:  CHECK  LIST" 

4290  PRINT  TABA"KEY  2:  CHECK  DVM" 

4300  PRINT  TABA"KEY  3:  CHECK  CHANNEL  VOLTAGES" 

4310  PRINT  TABA"KEY  4:  CHECK  ATTENUATORS" 

4320  PRINT  TABA"KEY  5:  CHECK  PWR,  TYPE  IV  & ATTEN  STABILITY" 

4322  PRINT  TABA"KEY  6:  CHECK  NOISE  ADD  STABILITY" 

4324  PRINT  TABA"KEY  7:  CHANGE  STANDARD  ATTENUATION  VALUE" 

4328  PRINT  TABA"KEY  9:  NEW  FREQ,  BW,  INPUT  ATTN,  SIML  STAR  NOISE" 

4330  Q=FNS2 

4340  GOTO  4210 

4350  R=504 

4370  DISP  "RUN 

4380  N6=FNB3+FNNN6 

4390  DISP  "FILTER  FREQ ( MHz ) " ; 

4400  C8=FNNC8 

4405  A3=10" ( N[13 ,5+( C8>49)*5]/10) 

4407  A8=N[18,5+( C8>49)*5] 

4410  DISP  "FILTER  BANDPASS (MHz)" ; 

4420  C9=FNNC9 

4430  DISP  "INPUT  ATTN(dB)"; 

4440  E6=FNNE6 

4450  DISP  "SIMUL  STAR  NOISE(dB)"; 

4460  H=FNNH+FNS3 
4464  RETURN  0 

4466  R=504.1 

4467  F2=l 

4468  DISP  "DO  CHECK  LIST  & DVM  (0=N0)"; 

4469  INPUT  Q 

4470  IF  Q=0  THEN  4478 
4476  Q=FNJ1+FNS6+FNJ2 

4478  Q=FNS4+FNJ3+FNS9+FNJ4+FNJ5 .1+FNS8+FNJ5+FNJ6+FNJ3 
4480  DISP  "CONNECT  EARTH  TERM, SET  PWR  LEVEL"; 

4490  Q=FNB3+FNN1 
4500  Q=FNS5+FNJ6.1 
4510  STOP 
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E - EQUIP  CHECK  computer  listing  (con't) 


R=506 

DISP  "PRINT  ALL  ON"; 

INPUT  A$ 

PRINT  "8  AC  PWR  SWITCHES  ON"; 

INPUT  A$ 

PRINT  "DANA:  EXT  RATE  FULL  CCW"; 

INPUT  A$ 

PRINT  "DANA:  DATA  OUTPUT  BUTTON  IN"; 

INPUT  AS 

PRINT  "DANA:  PROGRAM  CONTROL  BUTTON  IN"; 

INPUT  AS 

PRINT  "RF  UNIT: BANDPASS/FREQ  0 5.3Mz/70MHz" ; 

INPUT  AS 

E6= I NT ( ABSN[ 1 ,7] ) 

PRINT  "RF  UNIT:  ATTEN  SET  TO" ;E6; "dB" ; 

INPUT  AS 

PRINT  "RF  UNIT:  SIM  STAR  NOISE  @ 3.5  dB"; 

INPUT  AS 

PRINT  "RF  UNIT:  METER  RANGE  XI"; 

INPUT  AS 

PRINT  "(SIMUL  STAR  OUT)  to  (RF  INPUT)"; 

INPUT  AS 

PRINT  "#  OF  INPUT  PORTS  TO  RF  INPUT"; 

M6=FNNM6 

IF  M6=0  THEN  4718 
M5= 1+FNX 127 
Q=FNDO 

PRINT  "RF  UNIT:  OUTPUT  METER  @ " ;10*SGNN[1 ,7]*( ABSN[1 ,7]-E6) ; "dB" ; 
INPUT  AS 

PRINT  "CLOCK  UNIT:  SET  DATE"; 

INPUT  AS 

PRINT  "CLOCK  UNIT:  SET  GMT  TIME"; 

INPUT  AS 
DISP  "END" 

PRINT 
PRINT 
RETURN  0 
STOP 
R=507 

P$[13]="KEY  2:  CHECK  DIGITAL  MULTIMETER" 

Q=FNC3+FND0+FNS3+FNX32 

PRINT  "DVM  FUNCTION  1111:  FILTER  OUT"; 

INPUT  AS 
Q=FNX33 

PRINT  "DVM  FUNCTION  1110:  FILTER  IN"; 

INPUT  AS 
FOR  1=0  TO  4 

PRINT  10"  ( 3-1); "VOLT  RANGE" ,FNV ( I ) , "RANGE  #";I;"DEC  PLACES"; 1+2 

PRINT 

INPUT  AS 

NEXT  I 
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E - EQUIP  CHECK  computer  listing  (con't) 


PRINT  " AUTO-VOLT  RANGE" ,FNV(7) , "RANGE  #";7 

FOR  1=1  TO  5 

PRINT 

NEXT  I 

DISP  "END"; 

RETURN  0 
R=508 

P$[13]="KEY  4:  CHECK  ATTENUATORS" 

Q=FNDO 

F3=l 

N=3 

C2=l 

R=509 

IF  F2  THEN  5180 

DISP  "0=XTAL,1=TYPE  IV  BRIDGE"; 

F3=FNB4+FNN1+FNJ9 

DISP  "#  REPEAT  PWR  MEAS/SET" ; 

N=FNB2+FNNN 

R=510 

GOSUB  5620 
PO=P 

Q=FNC3+FNS2+FNF0+FNS2 
IF  F3  THEN  5260 

FORMAT  3X, "CRYSTAL  OUTPUT=" ,F9.5,"  VOLTS  +-\F6.3,"  %"  ,2X,"( ",F3.0,"  MEAS) 
WRITE  ( 15 ,5230)P0 ,S, N, 

GOTO  5280 

FORMAT  3X , "NBS  TYPE  IV  OUTPUT" ,F9. 5,"  MW  +-",F6.3,"  %" ,2X , "( " ,F3.0 , " MEAS)" 
WRITE  ( 15 ,5260)P0 ,S,N, 

GOSUB  5800 

FORMAT  2X , "STD  CK:",F6.3,"  DB" 

WRITE  (15,5290)0 

PRINT 

PRINT 

PRINT  "X  ATTN  PRGM  ATTN  #1  #1  PWR  OR  VOLT  ORIG  PWR/#1  PWR"; 

PRINT  " #1  PWR/#2  PWR" 

PRINT  " PRGM  ATTN  #2  #2  PWR  OR  VOLT  STD  CK  @ #2  "; 

PRINT  " NOMINAL  #l/#2" 

PRINT 

PRINT 

FOR  A1=0  TO  8 
IF  F2=0  THEN  5420 
IF  A1  THEN  5590 

IF  Al=3  OR  Al=5  OR  Al=7  THEN  5590 
FOR  A2=l  TO  15 
Q=FNX ( 63-A1 ) 

GOSUB  5620 

P1=P 

S1=S 

Q=FNX ( 63-A2 ) 

GOSUB  5620 


155 


5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 

5700 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5882 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5962 

5964 

5970 


E - EQUIP  CHECK  computer  listing  (con't) 


P2=P 

S2=S 

GOSUB  5800 

FORMAT  F3.0,"  DB",F7.0,"  DB",F13.5,"  +-",F5.2,"  %",F10.3,"  DB",F13.3 
WRITE  (15,5530)E6,A1,P1,S1, 10*LGT ( P0/P1 ) , 10*LGT ( P1/P2 ) 

FORMAT  F13.0,"  DB"SF13.5,"  +-",F5.2,"  *"fF10.3,"  DB",F11.0,"  DB" 

WRITE  ( 15 ,5550) A2 ,P2 ,S2 ,Q ,A2-A1 

PRINT 

NEXT  A2 

NEXT  A1 

Q=FNS8 

RETURN  0 

R= 5 1 1 

REM  ****PWR : F3=0  FOR  XTAL  DET,  F3=l  FOR  NBS  TYPE  IV  *** 

S=M=V1=0 

IF  F3=0  THEN  5670 
Q=FND1 

FOR  1=1  TO  N 
IF  F3  THEN  5720 
WAIT  50 
P5=FNV(4.06) 

GOTO  5730 

P5=FNP3 

M=M+P5 

V1=V1+P5*P5 

NEXT  I 

P=M/N 

IF  N=1  THEN  5790 

S=100*SQR( ( V1-M*M/N) / ( N— 1 ) )/ABSP 

RETURN 

R=512 

REM  ****  1 DB  CHECK:  Q=DIFF  IN  MILLI  DB  = Q 
Z=P 

Q=FNX66 
GOSUB  5620 

Q=FNX75-10*LGT( P/Z)+10*LGT( 1/A3) 

RETURN 
R=5 1 3 

P$[13]="KEY  5:  CHECK  PWR , LI NEARITY ,STAB  OF  TYPE  IV" 

F8=10*( Q-I NTQ) 

C3=3 

T1=FNR3 

Q=FND0+FND1 

F1=F5=2 

F7  = l 

F6= 1 2 

15=0.01 

N3=3 

A1=0 

A2  = l 

IF  F8=0  THEN  6000 


" DB" 
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E - EQUIP  CHECK  computer  listing  (con 1 1 ) 


5975  F1=F5=0 

5990  R-514 

6000  IF  F2  THEN  6480 

6010  DISP  "0=PRT  PWR&V'S,  2-GRAPH  PWR  RATIO"; 

6020  F1-FNB3+FNNF1 

6030  IF  F1=0  THEN  6230 

6040  DISP  "PWR  LEVEL:0=C0NST,1=STEPPED" ; 

6050  F7-FNNF7 
6060  IF  F7-0  THEN  6090 
6070  F6=l 
6080  GOTO  6110 

6090  DISP  "MEAS :0=PRGM  ATTN,1=STD  ATTN"; 

6100  F6-FNNF6 
6110  A1=0 
6120  A2=l 

6130  IF  F6  THEN  6170 

6140  DISP  "#1  LEVEL, #2  LEVEL  (PRGM  ATTEN)"; 

6150  INPUT  A1 ,A2 
6160  GOTO  6180 
6170  F6= 1 2 

6180  DISP  "#  OF  MEAS/PLOT"; 

6190  N3-FNNN3 

6200  DISP  "SMALLEST  GRAPH  UNIT(DB)"; 

6210  I 5-FNNI5 

6220  REM  BYPASS  NOISE  ADD  OPTION 
6230  Q0=0 

6240  GOTO  6270 

6250  DISP  "PWR  VIA  NOISE  ADD(0=N0 , 1-YES) " ; 

6260  QO-FNNO 

6270  C2-0 

6280  F5-F1+Q0 

6290  IF  QO-O  THEN  6340 

6300  DISP  "ADD  SOURCE :0=(#1&#2) , 1=(#1 ) ,2={#2 )" ; 
6310  C3-FNNC3 

6320  DISP  "INSERT  6DB  WHEN  ADD  0N(0=N0 ,1-YES) " ; 
6330  C2-FNNC2 
6340  TO-O 

6350  DISP  "INPUT  ATTEN  ( DB) " ; 

6360  E6-FNNE6 

6370  IF  FI =2  THEN  6420 

6380  DISP  "SIMULATED  STAR  NOISE  LEVEL(DB)"; 

6390  H-FNNH 
6400  FIXED  4 

6405  DISP  "STD( " ; 10*LGTA3; "dB) " ; 

6410  A3=N[1 ,3]=FNNA3 

6415  STANDARD 

6420  DISP  "IF  FREQ ( MHZ ) " ; 

6430  C8-FNNC8 

6440  DISP  "BANDWIDTH(MHZ)"; 

6450  C9-FNNC9 
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E - EQUIP  CHECK  computer  listing  (con't) 


R=5 1 5 

Q=FNC2+FNF0+FNS2 
IF  F5>1  THEN  6880 

FORMAT  " NO.  BRDG  V V 7 V8  V 9 

WRITE  (15,6550)"  CK  ERR  SIGMA" 

PRINT 

Q=FND1 

M1=M2=N=N1=N2=P2=V1=V2=S=S1=S2=0 

P=FNPC3 

IF  F2  THEN  6650 
Q4=FNR3 

IF  I NT ( Q4 / 10 ) - 1 NT (Tl/10)=0  THEN  6650 

Q=FNC2+FND0+FND1 

T1=Q4 

N=N+1 

IF  N/2- 1 NT ( N/2)  THEN  6740 

Q=FNX67 

N1  = N1+1 

M1=M1+P 

V1=V1+P*P 

IF  N1 =1  THEN  6730 

S=SQR( ( V1-M1*M1/N1 )/( Nl-1 ) )/Ml*Nl*100 

GOTO  6810 

Q=FNX66 

N2=N2+1 

M2=M2+P 

V2=V2+P*P 

IF  N2= 1 THEN  6800 

S=SQR( ( V2-M2*M2/N2 ) /( N2-1 ) ) /M2*N2*100 

FORMAT  F4.0,F8.4,3F12.6,F11.4, "MW" ,F9.4 , "DB" ,F7 .2 

IF  N>1  THEN  6830 

P2=P 

WRITE  ( 15 ,6800) N,V ,V7 ,V8,V9,P,(-1) " N*10*LGT( P2/P)-10*LGTA3 ,S 
P2=P 

IF  N/2- 1 NT ( N/2)  THEN  6862 
PRINT 

IF  F2  AND  N> 27  THEN  6872 
GOTO  6600 
RETURN  0 


PWR(MW) " 
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E - EQUIP  CHECK  computer  listing  (con't) 


R=516 

REM  **  STABILITY  GRAPH  ** 

FORMAT  5X,"#1  LEVEL:" ,F3.0,"  DB  EXT  +",F3.0 
FORMAT  F3 .0 , " DB  PROG" 

FORMAT  F3.0,"  DB  CK  STD" 

FORMAT  5X , "MEAS/PLOT  PT  =",F3.0 
WRITE  ( 15,6900)E6, 

IF  F6  THEM  6980 
WRITE  (15,6910)A1, 

GOTO  6990 

WRITE  ( 15 ,6920)A1 , 

WRITE  (15,6930)N3 

FORMAT  5X,"#2  LEVEL ,F3 .0 , " DB  EXT  +",F3.0 
FORMAT  5X , "UNIT  =\F7.4,"  DB",F7.4 
WRITE  (15,7000)E6, 

IF  F6  THEN  7060 
WRITE  ( 15 ,6910 )A2 , 

GOTO  7070 
WRITE  (15,6920)A2, 

WRITE  (15,7010)15 
PRINT 

FORMAT  5X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,4X,F6.3,"  DB",F6.3 

WRITE  (15, 7090)-25*I5, -15*15, -5*15, 5*15, 15*15, 25*15 

A$= 

PRINT  TAB8,A$ 

N=1 

J1=0 

M5=l 

T3=FNR3 

GOSUB  7690 

R5=R2 

I6=R5 

FORMAT  "#/TIME" ,21X,"ZER0=" ,F6.3,"  DB",22X,"  AVE  ",3X,"#1  PWR" 
WRITE  (15,7190)16 
GOTO  7340 
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E - EQUIP  CHECK  computer  listing  (con't) 


R=517 
N=  N+ 1 

IF  N>36  AMD  F2=l  THEN  7890 
IF  F7=0  THEN  7290 
J1=J1+1 

IF  M6=0  THEN  7270 
M5=M5+1 

IF  M5<M6+1  THEN  7268 
M5=l 

Q=FNX ( 128-M5 ) 

IF  J 1 < 16  THEN  7290 
J1=0 

Q=FNX(63-J1) 

IF  N/30- 1 NT ( N/30)  THEN  7320 
IF  F2=l  THEN  7310 
IF  STAT3=0  THEN  7308 
Q=FNR3 

IF  Q>10"9  THEN  7308 

FORMAT  28X  ,F5 .0  ,F5 .0  ,F6.2 , " ) 11 

WRITE  (15 ,7306) D4 ,Q1*10"3+INT(Q/10~4) , I NTQ/100- 100* I NT (Q/10"4) 
PRINT  H$ ; " : "jXS;1'  SYSM  #"  ;N[1 .4] 

WRITE  (15, 7090)-25*I5, -15*15, -5*15, 5*15, 15*15, 25*15 
PRINT  TAB8 ,A$ 

GOSUB  7690 

IF  ABS(R5-R2)>0.1  THEN  7340 

R5=(9*R5+R2)/10 

X3=( R2- 16 ) / 1 5+25 

IF  ABS ( (R5-I6)/I5)<10  THEN  7380 

1 6= R5 

WRITE  (15,7190)16 

IF  X3<0  OR  X3>50  THEN  7560 

ENTER  (3,*)Q,T4 

IF  I NT (T4/10)  — I NT ( T3/10)  THEN  7450 
FORMAT  F4.0 ,4X 
WRITE  ( 15 ,7410) N, 

Q0=FND1 
GOTO  7480 
FORMAT  F6.2.2X 

WRITE  ( 15 ,7450 ) ( I NTT4- 10 ~ 4* I NT ( T4/ 10 ~ 4 ) ) /100 , 

T3=T4 

X4= I NT ( S/15) 

IF  X4> 1 THEN  7510 
X4=l 

IF  ( X3-X4 ) <0  AND  (X3+X4)>50  THEN  7650 
IF  (X3-X4)<0  THEN  7590 
IF  ( X3+X4 ) > 50  THEN  7610 

PRINT  TAB( X3-X4 ) , " ! " ;TABX3 , "+" ; TAB( X3+X4 ),"!"; TAB50 , 

GOTO  7630 

FORMAT  4X , " ( OFF  SCALE)  RATIO=" ,F8.4 , " DB  +-",F7.4,"  DB",4X,F5.1 
WRITE  ( 15 ,7560)R2 ,S, 
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E - EQUIP  CHECK  computer  listing  (con't) 


7580  GOTO  7630 

7590  PRINT  TABX3  ;TAB( X3+X4) , " ! " ;TAB50 , 
7600  GOTO  7630 

7610  PRINT  TAB( X3-X4) ; " ! " ;TABX3 , "+" ;TAB50 , 

7620  FORMAT  F10.4 , "DB" ,F7 .3 , "MW" ,F8.4 

7630  WRITE  ( 15 ,7620 )R2 ,P 

7640  GOTO  7220 

7650  PRINT  TABX3 , "+" ;TAB50 , 

7660  FORMAT  4X,  "SIGMA  =\F6.3,"  DB" 

7670  WRITE  (15,7660)S 
7680  GOTO  7220 
7690  R=5 18 

7700  REM  ****  PWR  SUB;  P=PWR,  S=SIGMA  IN  DB 

7710  S=M1=M2=V2=0 

7720  Q=FND1 

7730  FOR  1=1  TO  N3 

7740  Q=FNX (63-A1+F6) 

7750  P4=FNPC3 

7751  M[2*I-1 ,1]=V 

7752  M[2*I-1,2]=V7 

7753  M[2*I-1 ,3]=V8 

7754  M[2*I-1 ,4]=V9 

7755  M[ 2*1-1 ,5]=P4 

7756  M[ 2*1-1 ,6]=10*LGT( P4/P) 

7760  P6=P4 

7770  M1=M1+P6 

7780  P=FNX( 63-A2+F6)+FNP3 

7781  M[ 2*1 ,1]=V 

7782  M[ 2* I ,2]=V7 

7783  M[ 2* I ,3]=V8 

7784  M[ 2*1 ,4]=V9 

7785  M[2*I,5]=P 

7786  M[2*I ,6]=10*LGT( P6/P) 

7789  IF  P=0  THEN  7804 

7790  IF  (P6/P)  <=  0 THEN  7804 
7800  R1  = 10*  LGT ( P6/P ) 

7802  GOTO  7810 

7804  PRINT  "7804  :P6 ,P" ,P6 ,P 

7810  M2=M2+R1 

7820  V2=V2+R1*R1 

7830  NEXT  I 

7840  P=M1/N3 

7850  R2=M2/N3 

7860  IF  N3=l  THEN  7880 

7870  S= 10*  LGT ( 1+SQR( ( V2-M2*M2/N3)/( N3-1 ) ) ) 

7871  IF  S<0.3  THEN  7880 

7872  PRINT 

7873  WRITE  (15,6550)"  CK  ERR" 
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7874 

7876 

7877 

7878 

7879 

7880 

7890 

7900 

7910 

7920 

7930 

7940 

7950 

7960 

7970 

7980 

7990 

8000 

8010 

8020 

8030 

8040 

8050 

8060 

8070 

8080 

8090 

8100 

8110 

8120 

8130 

8140 

8150 

8160 

8170 

8180 

8190 

8200 

8210 

8220 

8230 

8240 

8250 

8260 

8270 

8280 

8290 

8300 


E - EQUIP  CHECK  computer  listing  (con't) 


FOR  1=1  TO  2*N3 

WRITE  (15,6800 )I/2,M[I,1],M[I,2],M[I,3],M[I,4],M[I,5],M[I ,6]-10*LGTA3 

IF  I / 2 # I NT ( 1/2)  THEN  7879 

PRINT 

NEXT  I 

RETURN 

Q=FNS6 

RETURN  0 

R= 5 1 9 

P$[ 13]= "KEY  3:  CHECK  CHANNEL  VOLTAGES" 

Q=FNC3+FND0+FND1 
RESTORE  7940 

FORMAT  3X , "CHANNEL" ,7X , "VOLTAGE" ,8X , "STATUS" ,6X , "NOMINAL" , 10X , "+-  RANGE" 
WRITE  (15,7950) 

Q=FNS2 

FOR  J=0  TO  10 
READ  A$,A1,A2 

GOTO  I NT ( Al/100 ) OF  8020,8040,8060 

GOTO  8080 

A1  = 10*FNV7 .09 

GOTO  8080 

A1=N[1 ,5] 

GOTO  8080 
Q=FNV7 .09 

A1=FNV7 .08- N[ 1 ,6]*FNV7 .07 
Q=FNV ( 7+J/100) 

PRINT  A$,TAB15,Q,TAB30, 

A$="  OK" 

IF  Q<A1+A2  AND  Q>A1-A2  THEN  8140 
A$="*NOT  NORMAL!" 

Q=FNB3 

PRINT  A$,TAB45,A1,A2 

PRINT 

NEXT  J 

Q=FNS10 

DATA  "0=DC  OFFSET", 0.1E-05 

DATA  "1=TEMP" ,0.5 ,0.5 

DATA  "2=  DEW  POINT" ,0.5  ,0.5 

DATA  "3=+20  VOLTS", 20, 0.2 

DATA  "4=+12  VOLTS", 12, 0.15 

DATA  "5=DAC  OUTPUT" , 100 ,0.02 

DATA  "6=XTAL  DIODE" ,-0.0125 ,0.0125 

DATA  "7=D/A  REF" ,200 ,0 .01 

DATA  "8=BRDG  OUTPUT" ,2.415 ,0.17 

DATA  "9=SET  FINE  REF" ,300,0.005 

DATA  "10=BRDG  vs  REF", 0,0. 001 

Q= F NS 1 2 

RETURN  0 
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8500 

8510 

8520 

8525 

8530 

8540 

8545 

8550 

8560 

8570 

8580 

8590 

8600 

8610 

8620 

8705 

8710 

8712 

8714 

8716 

8722 

8724 

8726 

8728 

8740 

8760 

8770 

8772 

8776 

8778 

8780 

8782 

8784 

8785 

8786 

8787 

8788 

8790 

8800 

8810 

8815 

8816 

8817 


E - EQUIP  CHECK  computer  listing  (con't) 


R=520 

FORMAT  lOX/SIML  STAR  ATTN : " ,F4 .1 , " dB"  ,11X , "IF  FREQ  : " ,F9.0 , " MHz" 
FORMAT  10X, "INPUT  ATTN:" ,F8.0,"  dB" ,11X , "BNDWD: " ,F11 .1 ,"  MHz" 

FORMAT  10X , "STD  ATTN:",F8.3,"  dB",llX , "#l/#2add : " ,F8.4 

WRITE  ( 15,8510)H,C8 

WRITE  (15,8520)E6,C9 

WRITE  ( 15 ,8525) 10*LGTA3 ,A8 

RETURN  0 

R=521 

P$[ 13]="KEY  6:  " 

F8=10*(Q-INTQ) 

N=3 

F4=l 

IF  F2  AND  NOT  F8  THEN  8722 
F4=2 

IF  F2  THEN  8722 

DISP  "1=SIMUL,2=EARTH  TERM"; 

F4=FNB2+FNNF4 
DISP  "#MEAS/SET" ; 

N=FNNN+FND0+FND1+FNJ9 

C2=l 

P=FNPO 

IF  Q/Ql >0.5  THEN  8740 
C2=0 

P$[ 21]= "SIMULATED  NOISE  ADD  TEST" 

IF  F4=l  THEN  8772 
P$[21]="EARTH  TERMINAL  TEST" 

Q=FNC4+FNS1+FNF0+FNS2 

P=FND0+FNX66+FNP3*A3 

P1=FNX82+FNP3*A3 

P2=FNX83+FNX84+FNP3*A3 

FORMAT  " P=" ,F7 .4,"  mW",5X,"add  #1="  ,F7.4,"  mW",5X,"add  #2=",F7.4,F4.0 

WRITE  ( 15 ,8782 )P  ,P1-P  ,P2-P ,"  mW  meas/set=",N 
IF  (Pl/P-1 )<0.1  THEN  8787 
F5=l 

IF  (P2/P-1 )<0.1  THEN  8790 

F6=l 

Q=FNS2 

FORMAT  " P(mW)  P+1+2  #l(mW)  #2(mW)  #l+#2  #l/#2  P/#l" 

WRITE  (15,8800)"  P/#2  P/1+2  STDck" 

FORMAT  76X , "dB" 

WRITE  (15,8815) 

E2=-l 
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8820 

8824 

8826 

8828 

8830 

8832 

8840 

8842 

8850 

8852 

8860 

8870 

8880 

8882 

8890 

8900 

8908 

8910 

8920 

8930 

8940 

8945 

8950 

8960 

8962 

8970 

8980 

8990 

8992 

9000 

9010 

9018 

9020 

9030 

9040 

9050 

9055 

9060 

9070 

9072 

9080 

9090 

9100 

9102 


E - EQUIP  CHECK  computer  listing  (con't) 


N0=Nl  = N2=N3=N4=05=06=N7=N8=N9=M0=r/ll=M2=M3=M4=M5=M6=M7=M8=M9=0 
F7=E2=E2+1 

IF  E2= 16  AMD  F2=l  THEN  9400 
IF  E2=16  THEN  8772 
FOR  A=1  TO  N 
E2=F7 

C2=1+FNX81+FND1 
IF  F5=0  THEN  8945 
P=FNP1 
E2=F7 

IF  Q2 /Q1 >0.5  THEN  8890 

C2=0 

P=FNP1 

E2=F7 

N7=N7+P 

M7=M7+PA2 

P1=5*(Q3-Q1 ) 

N3=N3+P1 

M3=M3+P1 "2 

N1=N1+5*Q1 

Ml=Ml+25*Qr2 

IF  F6=0  THEN  9055 

C2  = l 

P=FNP2 

E2=F7 

IF  Q2/Q1 >0 . 5 THEN  9000 

C2=0 

P=FNP2 

E2=F7 

N8=N8+P 

M8=M8+P~2 

P2=5*( Q3-Q1 ) 

N4=N4+P2 

M4=M4+P2a2 

N1=N1+5*Q1 

M1=M1+25*Q1"2 

IF  ( F5+F6 )=0  THEN  9210 

C2=l 

P=FNPO 

E2=F7 

IF  Q2 /Q1 >0.5  THEN  9110 

C2=0 

P=FNPO 

E2=F7 
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9110 

9120 

9130 

9140 

9150 

9160 

9162 

9170 

9180 

9190 

9200 

9210 

9212 

9220 

9230 

9240 

9242 

9250 

9260 

9270 

9275 

9280 

9282 

9290 

9300 

9301 

9302 

9303 

9304 

9305 

9306 

9307 

9309 

9310 

9311 

9312 

9313 

9314 

9316 

9317 

9318 

9319 

9320 

9322 

9323 

9324 

9325 

9326 

9327 

9328 


E - EQUIP  CHECK  computer  listing  (con't) 


N9=N9+P 
M9=M9+PA2 
05=05+5*( Q3-Q1 ) 

M5=M5+(25*(Q3-Q1 )A2) 

N1=N1+5*Q1 

M1=M1+25*Q1 A2 

Q=P1/P2 

06=06+Q 

M6=M6+Q*Q 

N2=N2+5*Q2 

M2=M2+25*Q2A2 

P=FNX67+FNP3 

E2=F7 

N1=N1+P 

M1=M1+PA2 

P1=FNX66+FNP3 

E2=F7 

Q=10*LGT ( P/Pl )-10*LGTA3 

NO=NO+Q 

M0=M0+QA2 

NEXT  A 

FORMAT  10F8.4 

Q=( 1+F5+F6+ ( ( F5+F6 )#0) )*N 

WRITE  (15 ,9280)N1/Q,N2/N,N3/N,N4/N,05/N,06/N,N7/N,N8/N,N9/N,N0/N 

FORMAT  F6 .2 , "%  ",F6.2,"%  ",F6.2 

E=N-1 

Q1=(M1-N1 A2/Q)/(Q-1+(Q=1 ) ) 

IF  Q1 >0  THEN  9305 

Ql=l 

Q2=(M2-N2A2/N)/E 
IF  Q2>0  THEN  9309 
Q2  = l 

N2=N2+( N2=0) 

WRITE  ( 15 ,9300 )100*SQRQ1/N1*Q ,100*SQRQ2/N2*N, 

N3=N3+( N3=0) 

Q1=(M3-N3A2/N)/E 
IF  Q1 >0  THEN  9316 
Ql=l 

N4=N4+( N4=0) 

Q2=(M4-N4A2/N)/E 
IF  Q2>0  THEN  9320 
Q2=l 

WRITE  ( 15  ,9300 ) 100*SQRQ1/N3*N, 100*SQRQ2/N4*N, 

05=05+( 05=0) 

Ql=(M5-05*05/N)/E 
IF  Q1 >0  THEN  9326 
Ql=l 

06=06+(06=0) 

Q2=(M6-06*06/N)/E 
IF  Q2>0  THEN  9330 
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9329 

9330 

9332 

9333 

9334 

9335 

9336 

9337 

9338 

9339 

9340 

9341 

9342 

9343 

9344 
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9346 

9347 

9348 

9349 

9350 

9352 

9390 

9400 

9500 

9510 

9515 

9520 

9530 

9570 

9900 
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Q2=l 

WRITE  ( 15  ,9300)100*SQRQ1/05*N,100*SQRQ2/06*N, 
N7=N7+(N7=0) 

Q1=(M7-N7*N7/N)/E 
IF  Q 1 >0  THEN  9336 
Ql=l 

N8=N8+( N8=0) 

Q2=(M8-N8*N8/N)/E 
IF  Q2>0  THEN  9340 
Q2=l 

WRITE  (15,9300 ) 100*SQRQ1/N7*N,100*SQRQ2/N8*N, 
N9=N9+( N9=0) 

Q1=(M9-N9*N9/N)/E 
IF  Q1 >0  THEN  9345 
Ql  = l 

NO=NO+( N0=0) 

Q2=(M0-N0*N0/N)/E 
IF  Q2>0  THEN  9350 
Q2=l 

FORMAT  F6 .2 , "%  ",F8.4 

WRITE  ( 15 ,9349) 100*SQRQ1/N9*N,SQRQ2 

PRINT 

GOTO  8820 

RETURN  0 

R=522 

P$[13]="KEY  7:  CHANGE  STANDARD  ATTENUATION  VALUE" 

FIXED  4 

PRINT  "STD( " ; 10*LGTA3; "dB) " ; 

A3=N[1 ,3]=FNNA3 
GOTO  9515 
GOTO  9998 
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SYMBOL 


REFERENCE  LINE 


3962 

4210 

3964 

4340 

4478 

4470 

4718 

4715 

5180 

5090 

5260 

5220 

5280 

5250 

5420 

5400 

5590 

5410 

5420 

5620 

5190 

5450 

5490 

5840 

5670 

5650 

5720 

5680 

5730 

5710 

5790 

5770 

5800 

5280 

5520 

6000 

5970 

6090 

6060 

6110 

6080 

6170 

6130 

6180 

6160 

6230 

6030 

6270 

6240 

6340 

6290 

6420 

6370 

6480 

6000 

6600 

6870 

6650 

6602 

6620 

6730 

6710 

6740 

6660 

6800 

6780 

6810 

6730 

6830 

6810 

6862 

6850 

6872 

6862 

6880 

6540 
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CROSS  REFERENCE  for  E - EQUIP  CHECK  (con 1 1) 


SYMBOL 


REFERENCE  LINE 


6980 

6990 

7060 

6950 

6970 

7030 

7070 

7050 

7220 

7640 

7680 

7268 

7264 

7270 

7261 

7290 

7250 

7270 

7308 

7303 

7305 

7310 

7302 

7320 

7300 

7340 

7210 

7322 

7380 

7350 

7450 

7400 

7480 

7440 

7510 

7490 

7560 

7380 

7590 

7520 

7610 

7530 

7630 

7550 

7580 

7600 

7650 

7510 

7690 

7160 

7320 

7804 

7789 

7790 

7810 

7802 

7879 

7877 

7880 

7860 

7871 

7890 

7240 

8080 

8010 

8030 

8050 

8140 

8110 

8500 

4126 

8722 

8610 

8705 

8740 

8726 

8772 

8760 

8828 

8787 

8785 

8790 

8787 

8820 

9390 
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SYMBOL 


REFERENCE  LINE 


8890  8860 
8945  8842 
9000  8970 


9055 

8945 

9110 

9080 

9210 

9055 

9305 

9303 

9309 

9306 

9316 

9313 

9320 

9318 

9326 

9324 

9330 

9328 

9336 

9334 

9340 

9338 

9345 

9343 

9350 

9347 

9400 

8826 

9515 

9570 

9998  9900 


A 

A$ 

3980 

4550 

4650 

4730 

4940 

8090 

4260 

4570 

4670 

4750 

7110 

8100 

8830 

4590 

4674 

4770 

7120 

8120 

9275 

4610 

4690 

4870 

7310 

8140 

4630 

4710 

4900 

7990 

A$[ 

3970 

A1 

3980 

5390 

5410 

5420 

5440 

5540 

5560 

5590 

5962 

6110 

6150 

6960 

6980 

7740 

7990 

8000 

8020 

8040 

8070 

8110 

8140 

A2 

3980 

5430 

5480 

5560 

5580 

5964 

6120 

6150 

7040 

7060 

7780 

7990 

8110 

8140 

A3 

4022 

4405 

5850 

6410 

8776 

8778 

8780 

9530 

A8 

4024 

4407 

8545 

B$[ 

3970 

C 

3980 

C2 

3980 

5070 

6270 

6330 

8722 

8728 

8840 

8870 

8950 

8980 

9060 

9090 

169 
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SYMBOL 

REFERENCE  LINE 

C3 

3980 

5890 

6310 

C8 

3980 

4030 

4400 

4405 

4407 

6430 

8530 

C9 

3980 

4032 

4420 

6450 

8540 

D 

4033 

D$[ 

3970 

D4 

4034 

7307 

DISP 

3890 

4210 

4370 

4390 

4410 

4430 

4450 

4468 

4480 

4540 

4780 

5000 

5100 

5140 

6010 

6040 

6090 

6140 

6180 

6200 

6250 

6300 

6320 

6350 

6380 

6405 

6420 

6440 

8710 

8714 

E 

9301 

9305 

9312 

9317 

9323 

9327 

9333 

9337 

9342 

9346 

E2 

4050 

8817 

8824 

8826 

8828 

8832 

8852 

8882 

8962 

8992 

9072 

9102 

9212 

9242 

E6 

3980 

4440 

4655 

4660 

4720 

5540 

6360 

6940 

7020 

8540 

ED 

6400 

9515 

ENTER 

7390 

F 

4040 

FI 

3980 

5920 

5975 

6020 

6030 

6280 

6370 

F2 

3980 

4202 

4467 

5090 

5400 

6000 

6602 

6862 

7240 

7302 

8610 

8705 

8826 

F3 

3980 

5050 

5110 

5220 

5230 

5260 

5530 

5650 

5680 

6900 

6910 

6920 

6930 

7000 

F4 

3980 

6800 

7410 

8510 

8600 

8620 

8712 

8760 

8782 

F5 

3980 

5530 

5550 

5920 

5975 

6280 

6540 

7306 

7560 

8786 

8842 

9055 

9282 

F6 

3980 

5230 

5260 

5290 

5940 

6070 

6100 

6130 

6170 

6950 

7030 

7090 

7190 

7306 

7450 

7660 

7740 

7780 

8788 

8945 

9055 

9282 

9300 

9349 
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SYMBOL 


REFERENCE  LINE 


F7 

3980 

5530 

5930 

6050 

6060 

6800 

7010 

7250 

7560 

7620 

8782 

8824 

8832 

8852 

8882 

8962 

8992 

9072 

9102 

9212 

9242 

F8 

5882 

5970 

6800 

7560 

7620 

8520 

8525 

8580 

8610 

9280 

9349 

F9 

3980 

5230 

5260 

6800 

8510 

FNB2 

4220 

5150 

8712 

FNB3 

4380 

4490 

6020 

8130 

FNB4 

5110 

FNC2 

6490 

6630 

FNC3 

4850 

5210 

7930 

FNC4 

8772 

FNDO 

4718 

4850 

5040 

5910 

6630 

7930 

8716 

8776 

FND1 

5660 

5910 

6580 

6630 

7430 

7720 

7930 

8716 

8840 

FNF( 

4122 

FNFO 

5210 

6490 

8772 

FNJ  ( 

4160 

FNJO 

4110 

FNJ1 

4476 

FNJ2 

4476 

FNJ3 

4478 

FNJ4 

4478 

FNJ5 

4478 

FNJ6 

4478 

4500 

FNJ9 

5110 

8716 

FNNO 

6260 

FNN1 

4220 

4490 

5110 

FNNA3 

6410 

9530 

FNNC2 

6330 

FNNC3 

6310 

FNNC8 

4400 

6430 

FNNC9 

4420 

6450 

FNNE6  4440  6360 

FNNF1  6020 

FNNF4  8712 
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CROSS  REFERENCE  for  E - EQUIP  CHECK  (con't) 


SYMBOL 


REFERENCE  LINE 


FNNF6 

FNNF7 

FNNH 

6100 

6050 

4460 

6390 

FNNI5 

6210 

FNNM6 

4714 

FNNN 

5150 

8716 

FNNN3 

6190 

FNNN6 

4380 

FNPO 

8724 

9070 

9100 

FNP1 

8850 

8880 

FNP2 

8960 

8990 

FNP3 

5720 

7780 

8776 

8778 

8780 

9210 

9240 

FNPC3 

6600 

7750 

FNR2 

4140 

FNR3 

5900 

6610 

7150 

7304 

FNS1 

8772 

FNSIO 

8170 

FNS12 

8290 

FNS2 

4190 

4330 

5210 

6490 

7970 

8772 

8790 

FNS3 

4460 

4850 

FNS4 

4478 

FNS5 

4500 

FNS6 

4476 

7890 

FNS8 

4478 

5600 

FNS9 

4478 

FNV  ( 

4140 

4920 

4960 

5700 

8080 

FNV7 

8020 

8060 

8070 

FNW 

1000 

4140 

FNX( 

4140 

5440 

5480 

7268 

7290 

7740 

7780 

FNX127 

4716 

FNX32 

4850 

FNX33 

4880 

FNX66 

5830 

6740 

8776 

9240 

FNX67 

6670 

9210 

FNX75 

5850 

FNX81 

8840 
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CROSS  REFERENCE  for  E - EQUIP  CHECK  (con * t) 


SYMBOL 

REFERENCE 

: LINE 

FNX82 

8778 

FNX83 

8780 

FNX84 

8780 

G 

4060 

H 

3990 

4035 

4460 

6390 

8530 

H$ 

3960 

7308 

H$[ 

3970 

I 

3990 

4910 

4920 

4950 

4970 

4990 

5670 

5750 

7730 

7751 

7752 

7753 

7754 

7755 

7756 

7781 

7782 

7783 

7784 

7785 

7786 

7830 

7874 

7876 

7877 

7879 

15 

3990 

5950 

6210 

7070 

7100 

7309 

7340 

7350 

7480 

16 

3990 

7180 

7200 

7340 

7350 

7360 

7370 

J 

3990 

7980 

8080 

8160 

J1 

3990 

7140 

7260 

7270 

7280 

7290 

KEY 

3920 

L$[ 

3970 

LGT( 

5540 

5850 

6830 

7756 

7786 

7800 

7870 

9250 

LGTA3 

6405 

6830 

7876 

8545 

9250 

9520 

M 

3990 

5640 

5730 

5760 

5780 

MO 

8820 

9270 

9346 

Ml 

3990 

6590 

6690 

6720 

7710 

7770 

7840 

8820 

8940 

9050 

9160 

9230 

9302 

M2 

3990 

6590 

6760 

6790 

7710 

7810 

7850 

7870 

8820 

9200 

9305 

M3 

8820 

8920 

9312 

M4 

8820 

9030 

9317 

M5 

4716 

7142 

7262 

7264 

7266 

7268 

8820 

9140 

9323 

M6 

4070 

4714 

4715 

7261 

7264 

8820 

9180 

9327 
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CROSS  REFERENCE  for  E - EQUIP  CHECK  (con't) 


SYMBOL 


REFERENCE  LINE 


M7 

8820 

8900 

9333 

M8 

8820 

9010 

9337 

M9 

8820 

9120 

9342 

FORMAT 

5230 

5260 

5290 

5530 

5550 

6550 

6800 

6900 

6910 

6920 

6930 

7000 

7010 

7090 

7190 

7306 

7410 

7450 

7560 

7620 

7660 

7950 

8510 

8520 

8525 

8782 

8800 

8815 

9280 

9300 

9349 

MS[ 

3970 

M[ 

7751 

7752 

7753 

7754 

7755 

7756 

7781 

7782 

7783 

7784 

7785 

7786 

7876 

N 

3990 

5060 

5150 

5240 

5270 

5670 

5760 

5770 

5780 

6590 

6650 

6660 

6810 

6830 

6850 

6862 

7130 

7230 

7240 

7300 

7420 

8590 

8716 

8784 

8830 

9282 

9290 

9301 

9305 

9310 

9312 

9317 

9320 

9323 

9327 

9330 

9333 

9337 

9340 

9342 

9346 

9350 

NO 

8820 

9260 

9290 

9345 

9346 

N1 

3990 

6590 

6680 

6710 

6720 

8820 

8930 

9040 

9150 

9220 

9290 

9302 

9310 

N2 

3990 

6590 

6750 

6780 

6790 

8820 

9190 

9290 

9305 

9309 

9310 

N3 

3990 

5960 

6190 

6990 

7730 

7840 

7850 

7860 

7870 

7874 

8820 

8910 

9290 

9311 

9312 

9320 

N4 

8820 

9020 

9290 

9316 

9317 

9320 

N5 

3990 

N6 

3990 

4380 

N7 

8820 

8890 

9290 

9332 

9333 

9340 
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CROSS  REFERENCE  for  E - EQUIP  CHECK  (con't) 


SYMBOL  REFERENCE  LINE 


N8 

N9 

NS[ 

8820 

9340 

8820 

9350 

3970 

9000 

9110 

9290 

9290 

9336 

9341 

9337 

9342 

N[ 

4022 

4024 

4405 

4407 

4655 

4720 

6410 

7308 

8040 

8070 

9530 

05 

3990 

8820 

9130 

9290 

9322 

9323 

9330 

06 

3990 

8820 

9170 

9290 

9326 

9327 

9330 

OF 

4170 

4230 

8000 

P 

4000 

5200 

5460 

5500 

5760 

5780 

5820 

5850 

6600 

6690 

6700 

6760 

6770 

6820 

6830 

6840 

7630 

7756 

7780 

7785 

7786 

7789 

7790 

7800 

7804 

7840 

8724 

8776 

8784 

8785 

8787 

8850 

8880 

8890 

8900 

8960 

8990 

9000 

9010 

9070 

9100 

9110 

9120 

9210 

9220 

9230 

9250 

P$[ 

3970 

4090 

4180 

4840 

5030 

5880 

7920 

8570 

8740 

8770 

9510 

PO 

4000 

5200 

5240 

5270 

5540 

PI 

4000 

5460 

5540 

8778 

8784 

8785 

8908 

8910 

8920 

9162 

9240 

9250 

P2 

4000 

5500 

5540 

5560 

6590 

6820 

6830 

6840 

8780 

8784 

8787 

9018 

9020 

9030 

9162 

P3 

4000 

P4 

7750 

7755 

7756 

7760 

P5 

4000 

5700 

5720 

5730 

5740 

P6 

4000 

7760 

7770 

7786 

7790 

7800 

7804 
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CROSS  REFERENCE  for  E - EQUIP  CHECK  (con't) 


SYMBOL 

REFERENCE 

: LINE 

Q 

3900 

3910 

3920 

3930 

3940 

3963 

3964 

4000 

4110 

4122 

4140 

4160 

4170 

4190 

4220 

4230 

4330 

4469 

4470 

4476 

4478 

4490 

4500 

4718 

4850 

4880 

5040 

5210 

5300 

5440 

5480 

5560 

5600 

5660 

5830 

5850 

5882 

5910 

6490 

6580 

6630 

6670 

6740 

7268 

7290 

7304 

7305 

7307 

7390 

7720 

7740 

7890 

7930 

7970 

8060 

8080 

8090 

8110 

8130 

8170 

8290 

8580 

8726 

8772 

8790 

9162 

9170 

9180 

9250 

9260 

9270 

9282 

9290 

9302 

9310 

QO 

4000 

6230 

6260 

6280 

6290 

7430 

Q1 

4000 

7307 

8726 

8860 

8908 

8930 

8940 

8970 

9018 

9040 

9050 

9080 

9130 

9140 

9150 

9160 

9302 

9303 

9304 

9310 

9312 

9313 

9314 

9320 

9323 

9324 

9325 

9330 

9333 

9334 

9335 

9340 

9342 

9343 

9344 

9350 

Q2 

4000 

8860 

8970 

9080 

9190 

9200 

9305 

9306 

9307 

9310 

9317 

9318 

9319 

9320 

9327 

9328 

9329 

9330 

9337 

9338 

9339 

9340 

9346 

9347 

9348 

9350 

Q3 

4000 

8908 

9018 

9130 

9140 

Q4 

4000 

6610 

6620 

6640 

R 

0 

3980 

4130 

4150 

4200 

4350 

4466 

4530 

4830 

5020 

5080 

5180 

5620 

5800 

5870 

5990 

6480 

6880 

7220 

7690 

7910 

8500 

8560 

9500 

R1 

4000 

7800 

7810 

7820 

R2 

4000 

7170 

7322 

7330 

7340 

7570 

7630 

7850 

R5 

4000 

7170 

7180 

7322 

7330 

7350 

7360 

RES 

3930 

3969 
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CROSS  REFERENCE  for  E - EQUIP  CHECK  (con't) 


SYMBOL 

REFERENCE 

: LINE 

REWIND 

3969 

S 

4000 

5240 

5270 

5470 

5510 

5640 

5780 

6590 

6720 

6790 

6830 

7480 

7570 

7670 

7710 

7870 

7871 

SI 

4000 

5470 

5540 

6590 

S2 

4000 

5510 

5560 

6590 

SFLAG 

4100 

STANDARD 

4204 

6415 

STAT3 

7303 

T 

4080 

TO 

4000 

6340 

T1 

4000 

5900 

6620 

6640 

T2 

4000 

T3 

4000 

7150 

7400 

7470 

T4 

4000 

7390 

7400 

7460 

7470 

V 

4010 

6830 

7751 

7781 

VI 

4010 

5640 

5740 

5780 

6590 

6700 

6720 

V2 

4010 

6590 

6770 

6790 

7710 

7820 

7870 

V7 

4010 

6830 

7752 

7782 

V8 

4010 

6830 

7753 

7783 

V9 

4010 

6830 

7754 

7784 

WRITE 

5240 

5270 

5300 

5540 

5560 

6560 

6830 

6940 

6960 

6980 

6990 

7020 

7040 

7060 

7070 

7100 

7200 

7307 

7309 

7370 

7420 

7460 

7570 

7630 

7670 

7873 

7876 

7960 

8530 

8540 

8545 

8784 

8810 

8816 

9290 

9310 

9320 

9330 

9340 

9350 

X 

5230 

5260 

5290 

6900 

6930 

7000 

7010 

7090 

7190 

7306 

7410 

7450 

7560 

7660 

7950 

8510 

8520 

8525 

8782 

8815 

X$ 

7308 

x$[ 

3970 

177 


CROSS  REFERENCE  for  E - EQUIP  CHECK  (con't) 


SYMBOL 


REFERENCE  LINE 


X2 

4020 

X3 

4020 

7340 

7380 

7510 

7520 

7530 

7540 

7590 

610 

X4 

4020 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7590 

7610 

Z 

4020 

5820 

5850 

LINES:  679  BYTES:  15308  SYMBOLS:  291  REFERENCES:  1370 
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8.5  A - LOADER  flow  diagram 


RUN 


3700: 

3805: 

> 

- INITIALIZE 

SITE  DATA( 10= I NT, 5= EXT)? 
1 

3920: 

3940: 

1 

LOAD  KEYS 

MERGE  X-SUBROUTINES 
1 

4120: 

1 

LOAD  DATA,  S,T,N 
| 

4195: 

(4520: 

FNQ1) 

PRINTOUT  SYSTEM  DATA  MATRIX 
| 

4265: 

SET  UP 

PRGM 

CONSTANTS  AND  LINK  NEXT  PRGM 

(BEGIN  LINKED  PROGRAM) 
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3700 

3701 

3703 

3710 

3715 

3720 

3725 

3730 

3750 

3752 

3753 

3754 

3755 

3760 

3765 

3770 

3790 

3792 

3795 

3800 

3805 

3810 

3815 

3820 

3825 

3840 

3915 

3920 

3940 

3960 

3970 

3980 

3990 

3995 

4000 

4010 

4015 

4020 

4030 

4040 

4050 

4065 

4070 

4075 

4080 

4085 

4120 

4130 

4150 


8.6  A - LOADER  computer  listing 


REM  this  is  TAPE  version 

REM  tape:  3754  GOTO  3790,  3790  REM  "TASK ..." ,*3795  F6=3,*3800  A$="REWORK" 

REM  tape:  3805  DISP  A$":SITE  ; , 3825  Q3=Q3+Q0+F6/10+F4/100 

DIM  A$[72] , L$[50] , B$[ll] 

DIM  B[2,2],C[3,3],F[6] ,G[3,3] ,MS[40 , 10] , NS[26 , 1 1 ] , SS[ 10 ,4] 

DIM  TI[14 ,21] ,Y[6] ,ZI[1] 

R= 1 0 1 
CF  LAG  1 
CF  LAG  9 

DISP  "PRINT  ALL  ON  (1=YES)"; 

INPUT  Q 
GOTO  3790 

DISP  "DISK  ST0RAGE(0=N0)"; 

INPUT  F7 

IF  F7=0  THEN  3790 
SFLAG  1 

REM  DISP  "TASK(F6) :1=SITE  PREP ,2=MEAS ,3=REW0RK ,0=KEY BOARD  LINK"; 

F1=Q3=0 

F6=3 

A$="REWORK" 

DISP  A$ ; "SITE  DATA( 10= I NT ,5=EXT) " ; 

INPUT  QO 

DISP  "PRGM  CONST  CHANGE  0PTI0N(0=N0) " ; 

INPUT  F4 

Q3=Q3+Q0+F6/10+F4/100 
PRINT  Q3 

IF  FI = 1 THEN  3960 
LOAD  KEY  #( 10-5*FLAG1 ) ,2 
MERGE  #( 10-5*FLAG1 ) ,4 ,50 ,50 
H$="NBS1A.09  LOADER  <D1-F0>  T2-F0" 

DEG 

A=B6=B8=C3=E0=E2=E4=E6=E9=F1=F2=F3=F5=F8=H=L1=N=N7=P1=Z=0 

GOTO  4030 

R=102 

DEF  FNJ(Q) 

GOTO  Q OF  4210,4270 
F 1 = 1 

GOTO  3725 

R=103 

N5=0 

REM  ARMY  G/T,G,T 

Q3=RES 

Q= I NTQ3 

F6= I NT ( ( Q3-Q)*10) 

F4= I NT ( 100*Q3-10*INT( 10*Q3) ) 

F7=1000*Q3-10*INT( 100*Q3) 

LOAD  DATA  #Q,6,S 
LOAD  DATA  #Q,8,T 
LOAD  DATA  #Q,10,N 
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4160 

4170 

4180 

4190 

4195 

4200 

4210 

4212 

4220 

4230 

4240 

4250 

4260 

4265 

4270 

4280 

4300 

4310 

4315 

4320 

4325 

4326 

4330 

4335 

4336 

4340 

4350 

4360 

4370 

4380 

4390 

4395 

4400 

4405 

4410 

4420 

4422 

4426 

4430 

4440 

4460 

4470 

4475 

4510 

4515 

4520 

4530 

4540 

4550 

4560 

4570 


A - LOADER  computer  listing  (con't) 


IF  NOT  F4  THEN  4190 
DISP  "RUN  #"; 

N[14,6]=FNB3+FNNN[ 14,6] 

R=104 

Q=FNQ3+FNC1+FNS1+FNQ1+FNS5 
IF  NOT  F4  THEN  4260 
R=105 

DISP  "CHANGE  ANY  PRGM  CONST( 1=YES) " ; 

Q=FNB4+FNN0 

IF  Q=0  THEN  4260 

Q=FNQ2 

GOTO  4190 

R=106 

GOTO  F6  OF  4310,4320,4470 

DISP  "LINK  :1=SITE  PREP ,2=MEAS,3=REW0RK" ; 

INPUT  F6 

GOTO  4260 

R=107 

LINK  #(10-5*F7), 12, 3700, 3700 
R=108 

REDIM  F[2],Y[2],G[2,2],C[2,2] 

MAT  M=ZER[40 , 10] 

Al=4 

B1=N=N7=X5=X6=0 

B6=0.008 

B5=N[5 ,6]=N[5 ,7]=N[5 ,8]=0.2 
B7=10*LGT(G/H9) 

C2=N0=U=Z=1 

E2=6 

E3=30/3600 
E5=6/3600 
E6=65 
E7=40.349 
M5=l 
N4=30 
R5= 1 1 
Y=1 .2 

NC6,1]=N[6,2]=N[6,3]=N[6,4]=H9 
CFLAG  1 
CF LAG  5 

LINK  #( 10-5*F7) , ( 12+F6*F7 ) ,3700,3700 

R=109 

Q=5 

LI NK  #( 10-5*F7 ) , ( 12+F7*( F6+1 ) ) , 50 , 50 

R= 1 10 

DEF  FNQ(Q) 

A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
B$="1234567890  " 

GOTO  Q OF  5290,5530,5710 
GOSUB  4580 
RETURN  0 
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A - LOADER  computer  listing  (con't) 


4580  DISP  "N  DATA  VIA  5=EXT  CASS,10=INT  CASS"; 

4590  INPUT  Q 

4610  MAT  N=ZER[26 ,11] 

4620  LOAD  DATA  #Q,10,N 
4630  RETURN 
4650  A1=N[1 ,1] 

4660  A2=N[1 ,2] 

4670  A3=N[ 1 ,3] 

4680  B=N[2 ,11] 

4682  B0=N[2 ,10] 

4700  B2=N[2 ,2] 

4710  B3=N[2 ,3] 

4720  B7=N[2 ,7] 

4730  B8=N[2 ,8] 

4740  B9=N[2 ,9] 

4750  C=  N[ 3,11] 

4760  C0=N[3 ,10] 

4770  Cl  = N[ 3,1] 

4780  C2=N[3 ,2] 

4790  C3=N[3 ,3] 

4800  C4=N[3 ,4] 

4810  C5=N[3 ,5] 

4820  C6=N[3 ,6] 

4830  C7=N[3,7] 

4840  C8=N[3 ,8] 

4850  C9=N[3 ,9] 

4860  D=N[4,11] 

4870  D0=N[4 ,10] 

4880  D1=N[4 , 1] 

4890  D2=N[4 ,2] 

4900  D3=N[4 ,3] 

4910  D4=N[4 ,4] 

4920  D5=N[4,5] 

4930  D8=N[4 ,8] 

4940  D9=N[4 ,9] 

4950  E=  N[ 5 , 1 1 ] 

4960  F=N[6 ,11] 

4970  F0=N[6 , 10] 

4980  F1=0 

5000  G=N[7 ,11] 

5010  G4=N[7 ,4] 

5020  G5=N[7 ,5] 

5030  G6=N[7 ,6] 

5040  H=N[8 , 11  ] 

5050  H1=N[8,1] 

5060  H5=  N[ 8,5] 

5070  H9=N[8 ,9] 
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5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5215 

5220 

5230 

5240 

5250 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 


A - LOADER  computer  listing  (con't) 


L=N[ 12,11] 

LI  = N[ 1 2 ,1] 

L5=N[12 ,5] 

L6=  M[ 1 2 ,6] 

L7= N[ 12,7] 

L8=  N[ 1 2 ,8] 

L9= N[ 12,9] 

M=  N[ 13,11] 

N=N[ 14,11] 

N1  = N[14 ,1] 

N2=N[ 14,2] 

N5=0 

N6=N[ 14,6] 

N7=N[14 ,7] 

Q3= N[ 15,3] 

T=N[20,11] 

W=N[23 ,11] 

TRANSFER  T[9,l]  TO  P$ 

RETURN 

Q=FNI5 

PRINT  TAB31 , "PROG  CONSTS" 
A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 

Q1 =0 
Q2=— 10 

FOR  1=1  TO  26 

FOR  J=1  TO  11 

IF  N[ I ,J ]=0  THEN  5470 

Q1=Q1+1 

Q2=Q2+20 

IF  Q2<55  THEN  5410 
Q2=10 

IF  Ql#l  THEN  5440 

PRINT 

PRINT 

PRINT  TABQ2 ,A$[ I , I] ; B$[J ,J] ; " : " ; N[ I ,J] ; 

IF  INT(Ql/3)-Ql/3  THEN  5470 

PRINT 

NEXT  J 

Q2=- 10 

Q1  =0 

NEXT  I 

Q=FNS2+FNI5 

RETURN  0 
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5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5655 

5660 

5670 

5680 

5690 

5700 

5710 

5720 


A - LOADER  computer  listing  (con't) 


R= 111 

DISP  "WHICH  PROG  CONST  (0=EXIT)"; 

INPUT  S$[ 1 ,2] 

IF  S$[1,1]="0"  THEN  5650 
I=POS(A$ ,S$[1 ,1] ) 

IF  1=0  THEN  5540 
B$="1234567890  " 

J=POS( B$ ,S$[2 ,2] ) 

DISP  "NEW  VALUE:  NOW" ; N[ I ,J] ; 

INPUT  N[ I ,J ] 

GOSUB  4650 
GOTO  5540 
R= 112 

DISP  "STORE  N:  0=M0,5=EXT  CASS,10=INT  CASS"; 
INPUT  Q 

IF  Q THEN  5690 
GOTO  5700 

STORE  DATA  #Q,10,N 
RETURN  0 
GOSUB  4650 
RETURN  0 
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8.7  CROSS  REFERENCE  for  A - LOADER 


SYMBOL 

REFERENCE 

: LINE 

3725 

4020 

3790 

3765 

3960 

3915 

4030 

3990 

4190 

4160 

4250 

4260 

4200 

4230 

4300 

4580 

4560 

4650 

5630 

5710 

5410 

5390 

5440 

5410 

5470 

5360 

5450 

5540 

5580 

5640 

5650 

5560 

5690 

5670 

5700 

5680 

A 

3980 

A$ 

4530 

5310 

5570 

A$[ 

3710 

5440 

A1 

4330 

4650  ' 

A2 

4660 

A3 

4670 

B 

4680 

B$ 

4540 

5590 

5600 

B$[ 

3710 

5440 

BO 

4682 

B1 

4335 

B2 

4700 

B3 

4710 

B5 

4340 

B6 

3980 

4336 

B7 

4350 

4720 

B8 

3980 

4730 

B9 

4740 

B[ 

3715 

C 

4750 
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CROSS  REFERENCE  for  A - LOADER 


SYMBOL 


REFERENCE  LINE 


CO 

Cl 

C2 

4760 

4770 

4360 

4780 

C3 

3980 

4790 

C4 

4800 

C5 

4810 

C6 

4820 

C7 

4830 

C8 

4840 

C9 

4850 

CFLAG 

3730 

3750 

4430 

4440 

C[ 

3715 

4325 

D 

4860 

DO 

4870 

D1 

4880 

D2 

4890 

D3 

4900 

D4 

4910 

D5 

4920 

D8 

4930 

D9 

4940 

DEG 

3970 

DISP 

3752 

3755 

3790 

3805 

3815 

4170 

4212 

4270 

4580 

5540 

5610 

5655 

E 

4950 

EO 

3980 

E2 

3980 

4370 

E3 

4380 

E4 

3980 

E5 

4390 

E6 

3980 

4395 

E7 

4400 

E9 

3980 

F 

4960 
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CROSS  REFERENCE  for  A - LOADER 


SYMBOL 

REFERENCE 

: LINE 

FO 

4970 

FI 

3792 

3915 

3980 

4015 

4980 

F2 

3980 

F3 

3980 

F4 

3820 

3825 

4080 

4160 

4200 

F5 

3980 

F6 

3795 

3825 

4075 

4265 

4280 

4460 

4510 

F7 

3760 

3765 

3825 

4085 

4315 

4460 

4510 

F8  3980 C 


FLAG1 

3920 

3940 

FNB3 

4180 

FNB4 

4220 

FNC1 

4195 

FNI5 

5290 

5510 

FNJ  ( 

4000 

FNNO 

4220 

FNNN[ 

4180 

FNQ( 

4520 

FNQ1 

4195 

FNQ2 

4240 

FNQ3 

4195 

FMS1 

4195 

FNS2 

5510 

FNS5 

4195 

F[ 

3715 

4325 

G 

4350 

5000 

G4 

5010 

G5 

5020 

G6 

5030 

G[ 

3715 

4325 

H 

3980 

5040 

H$ 

3960 

HI 

5050 
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CROSS  REFERENCE  for  A - LOADER 


SYMBOL 

REFERENCE 

LINE 

H5 

5060 

H9 

4350 

4426 

5070 

I 

5340 

5360 

5440 

5500 

5570 

5580 

5610 

5620 

J 

5350 

5360 

5440 

5470 

5600 

5610 

5620 

KEY 

3920 

L 

5080 

L$[ 

3710 

LI 

3980 

5090 

L5 

5100 

L6 

5110 

L7 

5120 

L8 

5130 

L9 

5140 

LGT( 

4350 

LINK 

4315 

4460 

4510 

M 

4326 

5150 

M5 

4405 

MAT 

4326 

4610 

MS[ 

3715 

N 

3980 

4335 

4610 

5160 

NO 

4360 

N1 

5170 

N2 

5180 

N4 

4410 

N5 

4040 

5190 

N6 

5200 

N7 

3980 

4335 

5210 

NS[  3715 
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CROSS  REFERENCE  for  A - LOADER 


SYMBOL 


REFERENCE  LINE 


N[ 

4180 

4340 

4426 

4650 

4660 

4670 

4680 

4682 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 

4810 

4820 

4830 

4840 

4850 

4860 

4870 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5200 

5210 

5215 

5220 

5230 

5360 

5440 

5610 

5620 

OF 

4010 

4265 

4550 

P$ 

5240 

PI 

3980 

Q 

3753 

4000 

4010 

4070 

4075 

4195 

4220 

4230 

4240 

4475 

4520 

4550 

4590 

5290 

5660 

5670 

QO 

3810 

3825 

Q1 

5320 

5370 

5410 

5450 

5490 

Q2 

5330 

5380 

5390 

5400 

5480 

Q3 

3792 

3825 

3840 

4065 

4070 

4075 

4080 

4085 

5215 

R 

3725 

3995 

4030 

4190 

4210 

4260 

4310 

4320 

4470 

4515 

5530 

5650 

R5 

4420 

REDIM 

4325 

RES 

4065 

s$[ 

5550 

5560 

5570 

5600 

SFLAG 

3770 

SS[ 

3715 

STORE 

5690 

T 

5220 

TC 

3720 

5240 

TRANSFER 

5240 

U 

4360 

W 

5230 

X5 

4335 
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CROSS  REFERENCE  for  A - LOADER 


SYMBOL 


REFERENCE  LINE 


X6 

4335 

Y 

4422 

Y[ 

3720 

4325 

Z 

3980 

4360 

ZER[ 

4326 

4610 

ziC 

3720 

LINES:  209  BYTES:  4013  SYMBOLS:  161  REFERENCES:  363 
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3.8  B - SITE  PREP  flow  chart 


3975: 

4005: 


3725 

3730 

3730 

3730 

3730 

3730 

3730 


3730 

3730 

3730 


3730: 


3730 

3730 

3732 


LINK  FROM  LOADER 


>> TRAP:  RESTRT :0=REGULAR,1=ALL  QUESTIONS? 

SET  FLAG  F3  = 0,  1 


(4190:  FNJ1 ) 
(5190:  FNJ2) 
(5565:  FNJ3 ) 
(5415:  FNJ4) 
(5685:  FNJ5) 
(4915:  FNJ6) 


(4450:  FNJ7) 
(5960:  FNJ8) 
(6040:  FNJ9) 


SITE  INFORMATION  UPDATE  < 
update  RUN#, DATE, SITE  COORDINATES 
update  FREQ, BW, ANT  PARAMETERS 
update  ANT  POINTING  ERROR 
update  T,G/T,Ta,PWR  RESP 
update  TEMP,  DEW  PT 
update  SUN/MOON  ALMANAC  DATA 


print  SITE  AND  FLUX  DATA 
calculate  STAR  FLUX  at  F 
print  TYPICAL  G/T  VALUES  AND  ERRORS 


(5740:  FNJ10)  store  S,  T,  N 


(6385:  FNJ11)  print  ALTERNATE  STAR  ERRORS 
(7570:  FNJ12)  print  ELEVATION  vs  GMT 

goto  TRAP— - >3975: 
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3700 

3705 

3708 

3710 

3715 

3717 

3718 

3720 

3721 

3722 

3725 

3730 

3732 

3734 

3736 

3738 

3740 

3741 

3742 

3743 

3744 

3746 

3747 

3748 

3750 

3755 

3760 

3765 

3770 

3775 

3780 

3785 

3790 

3795 

3800 

3805 

3810 

3815 

3820 

3825 

3830 

3835 

3840 

3845 

3850 

3855 


8.9 


B - SITE  PREP  computer  listing 


H$="NBS1B.30*  SITE  PREP  <D1-F12>  T2-F12" 

DEG 

CF  LAG  9 
A[ 3 ] =803 
A[ 4 ] =462 
B2=0 .65 
F=7 .5 
F2=0 
F3=l 
H9=200 
R=201 

Q=FNJ  1+FNJ2+FNJ3+FNJ4+FNJ5+FNJ6+FNJ7+FNJ8+FNJ9+FNJ10+FNJ 11+FNJ12 
GOTO  3975 
DEF  FNG(Q) 

Q1=Q*SGNQ 

RETURN  SGNQ*( I NTQ1+ ( Ql- I NTQ1 )*0.6) 

R=202 

DEF  FNH(Q) 

GOTO  Q OF  3743,6065 

PRINT  " FREQ(MHz) " , 11  G(  dB) " , " T( K ) " , "G/T ( dB/K ) " , "G/Ta(  dB/K ) " 
FORMAT  F7 .0 ,4F15 .2 

WRITE  (15,3744) 1000*F , 10*LGTG ,T, 10*LGT ( G/T) , 10*LGT ( G/H9) 

RETURN  0 
DEF  FNE(NO) 

REM  <NBS  99 1 3 > 

E0=0 

El=50*( 1/K1-1 ) 

IF  B< 14  THEN  3780 
Q2=0 

GOTO  3795 

Q0=4.73*( 5 .9-B0)+5 .39*SQR( ( 5. 9- BO) "2+0. 479) 

Ql  = (7 . 12-BO )/ABS( 7 . 12-B0)*2 .04*SQR(  (QO/1 .79) "2-1 ) 

Q2=0.15+0 .354*( Q0+Q1 ) 

P1=2*SQR( Q2"2+13*D2"2) 

E2=( ( 1-K2 )*P1+D1 ) 

E3=( W/F/2E+03 )~2*50 
E4=0.4*B0*B0/K1/K2/S[ NO ,4]/K8/K9 
Q2=60*D5*2 .784/B 
E5=( 1-(SIN(Q2*180/PI )/Q2)~2)*100 
E6=0.023*T[N0,11] 

Y=1+FNZN0*G/T 
Y5= Y / ( Y- 1 ) 

E7=SQR( ( C9*Y5)~2+A2"2) 

E8=100*D8*( 1/K8-1 ) 

E9=100*D9*( 1/K9-1 ) 

RETURN  0 
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3860 

3865 

3870 

3875 

3880 

3885 

3890 

3892 

3893 

3894 

3895 

3900 

3905 

3910 

3913 

3914 

3915 

3916 

3918 

3919 

3920 

3923 

3925 

3930 

3935 

3940 

3942 

3945 

3950 

3955 

3960 

3965 

3970 

3975 

3977 

3978 

3980 

3985 

3990 

3995 

4000 

4005 

4010 

4020 

4170 

4175 

4180 

4185 


B - SITE  PREP  computer  listing  (con't) 


R=203 
DEF  FNO(Q) 

DISP  "(  =NC) NOW : ";A$; 

INPUT  L$ 

IF  L$="  " THEN  3890 
A$=L$ 

RETURN  0 
DEF  FNF(Q) 

GOTO  Q OF  4170 
GOTO  4870 
R=204 
DEF  FNJ(Q) 

GOTO  Q OF  4190,5190,5565,5415,5685,4915,4450,5960,6040 
GOTO  Q-9  OF  5740,6385,7570,6995 
GOTO  3975 
R=205 

DEF  FNM(QO) 

DISP  "(deg)"; 

Q3=FNNINT(SGNQ0*INTSQR(Q0~2) ) 

DISP  "MIN"; 

Q4=FNN(100*SGNQ0*FNG(Q0-Q3) ) 

RETURN  SGNQ3*( ABSQ3+ABSQ4/60) 

DEF  FNT(Q) 

FOR  Xl=l  TO  X2 
J =A[ XI ] 

V=M[J ,Q] 

IF  M[J ,10]<0.6  THEN  3965 
WRITE  ( 15 ,6670)V*100 ; 

M[J  ,6]=M[J  ,6]+V*100 

M[J ,7]=M[J ,7]+( V*100 )~2 

NEXT  XI 

PRINT 

RETURN  0 

R=206 

F3=l 

L=  1 5 

PRINT 

DISP  "RESTRT :0=REGULAR , 1=ALL  QUESTIONS"; 

Q=FNB2+FNN0 
GOTO  Q OF  4005 
GOTO  3725 
R=207 
F3=0 

GOTO  3725 
R=211 

IF  STAT10  >=  4 THEN  4185 

REWIND 

RETURN  0 
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4190 

4195 

4200 

4205 

4210 

4215 

4220 

4225 

4230 

4235 

4240 

4245 

4250 

4255 

4260 

4265 

4270 

4275 

4280 

4285 

4290 

4295 

4300 

4305 

4310 

4315 

4320 

4325 

4330 

4335 

4340 

4345 

4350 

4355 

4360 

4365 

4370 

4375 

4380 

4385 

4390 

4395 

4400 

4425 

4430 

4435 

4440 

4442 

4445 


B - SITE  PREP  computer  listing  (con't) 


R= 2 1 2 

E=T[ 14 , 9]+28125 

DISP  "CHANGE  RUN/DATE/SITE ; 1=YES" ; 

Q=FNB2+FNN0 
IF  NOT  Q THEN  4445 
DISP  "RUN  NUMBER"; 

N6=FNB3+FNNN6 
DISP  "YEAR"; 

A$=P$[9 , 12] 

Q=FN05 
P $ [ 9 , 12 ] =A$ 

E1=VAL(A$) 

DISP  "MONTH"; 

A$=P$[4 ,6] 

Q=FN05 
P$[4 ,6]=A$ 

A$="JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" 

E2=( POS( A$ ,P$[4 ,6] )+2)/3 
IF  E2=2/3  THEN  4250 
P$[4 ,6]=A$[3*E2-2 ,3*E2+1] 

DISP  "DAY  OF  MONTH"; 

A$=P$[7 ,8] 

Q=FN05 
P $ [ 7 ,8]=A$ 

E3= VAL ( A$ ) 

Q= ( El-1900 ) /4 
Q 1 = I NT  Q 
Q2=4*( Q-Ql ) 

J = I NT ( (Q2+3)/4) 

IF  E2>2  THEN  4350 
J1=0 

GOTO  4355 
Jl  = l 

E=31*( E2-1 )+E3+J 1* ( - 1 NT ( ( 0.4*E2)+2 - 3 ) + 1 -J )+J+(Q2*365)+( 4*Q1*365 .25 ) 
T[ 14 ,9]=E-28125 
E5=E/365 .25/4 

C6=0 .0307 57*Q 1+360 .00627*4* ( E 5- 1 NT ( E5) ) +98. 21 62 

C6=C6/360 

C6=360*( C6-INTC6) 

DISP  "DAY  OF  WEEK"; 

A$=P$[1 ,3] 

Q=FN09 
P$[l  ,3]=A$ 

DISP  "MEAS  ID"; 

A$=P$[ 13,40] 

Q=FN09 

P$[ 13 ,40]=A$ 

Q=FNFO 
RETURN  0 
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4450 

4455 

4460 

4465 

4470 

4475 

4480 

4485 

4490 

4495 

4500 

4505 

4510 

4515 

4520 

4525 

4530 

4535 

4540 

4545 

4550 

4555 

4560 

4565 

4570 

4575 

4580 

4585 

4590 

4625 

4630 

4635 

4640 

4645 

4650 

4655 

4660 

4665 

4670 

4675 

4680 

4685 

4690 

4695 

4700 


B - SITE  PREP  computer  listing  (con't) 


R=2 1 3 

C=1900+(T[ 14, 91+28125 )/365. 25 
Q=FNS2+FNC3+FNI5+FNS1 

FORMAT  5X  , "SITE  : W.  LONG" ,8X , "N.  LAT" , 10X , "ALTITUDE" ,5X 
WRITE  ( 15,4465) "GHA  TO  ARIES  0 0 GMT" 

FORMAT  3F13 .3 ,2F16 .3 

WRITE  (15 ,4475) C4; " deg",C5;"  deg", CO,"  km",C6;"  deg" 

Q=FNS2+FNI5 

PRINT  TAB34 , "FLUX  DATA" 

FORMAT  F2.0,F8.0,"  +-",F5.1,"  % @",F4.0,"  GHz",F4.0,"  T0",F3.0 
FORMAT  F8.2  ,F8.3 ,"  +-",F6.3 

FORMAT  F10 .1 ,F7 .2  , " +-",F5.2,"  %/Yr" ,F35 .3 , " +-",F6.3,"  %/Yr" 

PRINT 

PRINT  " STAR"TAB17"FLUX  in  F.U. "TAB40 "RANGE (GHz)  SIZE(min)"; 

PRINT  " SPEC  INDEX" 

FORMAT  " Epoch" ,8X , "Secul ar  Decay" ,32X , "Secul ar  Expansion" 

WRITE  (15,4525) 

PRINT 

FOR  1=1  TO  N1 
TRANSFER  T[I,1]  TO  S$ 

WRITE  (15,4495)1  ,"  " ,S$  ,S[ 1 ,1]  ,T[ 1 ,8]/10  ,T[ 1 , 181/100  ,T[ 1 ,19] ,T[ 1 ,20]  , 

WRITE  (15, 4500)T[I, 91/100,"  " ,T[ I ,61/1000 ,T[ I ,71/1000 
IF  ABST[ I ,4]+ABST[ I ,15]+ABST[ I , 16]+ABST[ I ,17 1=0  THEN  4580 
Q=T[I, 51/1000 

WRITE  (15, 4505 )T[ I, 151/10, T[ I, 161/100, T[ I, 171/100, T[ I, 41/1000, Q 
PRINT 

IF  I /3- 1 NT ( I/3)#0  THEN  4590 

PRINT 

NEXT  I 

R=214 

Q=FNS2+FNI3 

PRINT  TAB30, "LOCATION  & MISC  DATA" 

Q=FNS3 

FORMAT  " STAR  EPOCH  (DAYS  AFTER  1977.0)",9X 
WRITE  (15, 4645) "SOLAR  EPOCH  (DAYS  AFTER  1977.0)" 

FORMAT  F11.3,F13.0,F27.3,F16.0 
Q=1900+(28125+T[14 ,9] )/365 .25 
Ql=1900+( 28125+T[14 , 10] ) /365 .25 
WRITE  ( 15 , 4655 )Q,T[14,9] ,Q1 ,T[14,10] 

Q=FNS2 

FORMAT  4X , "STAR  : " ,6X , "RT.ASC" ,5X , "N.  DEC. " ,9X , "LINEAR  P0LZ",12X 
WRITE  ( 15,4680) "POLZ  ANG" 

FORMAT  4X, "SOLAR:  GHA:0  GMT  @12  GMT  N.DEC:0  GMT  @12  GMT  @24  GMT 

WRITE  (15,4690)"  HOR  PRLX  PHASE" 

Q=F  NS 1 
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4705 

4710 

4725 

4730 

4731 

4732 

4733 

4735 

4737 

4738 

4739 

4740 

4742 

4745 

4747 

4750 

4752 

4755 

4760 

4765 

4790 

4795 

4800 

4805 

4810 

4815 

4820 

4825 

4830 

4835 

4840 

4845 

4850 

4855 

4860 

4865 

4870 

4875 

4880 

4885 

4890 

4895 

4900 

4905 


B - SITE  PREP  computer  listing  (con't) 


FOR  1=1  TO  N1 

TRANSFER  T[I,1]  TO  S$[l,5] 

IF  T[I,21]=0  THEN  4745 

FORMAT  F2.0,F9.3,"  d.m" ,F9.3,F9.3,"  d.m" 

Q=S[I,2]+12*T[I, 111/1000 
IF  Q<360  THEN  4735 
Q=Q- 360 

WRITE  (15,4730)  1,"  " ,S$ ,FNGS[ 1,2] ,FNGQ  ,FNGS[ 1,3], 

FORMAT  2F8.3  ,F8.3,"  d.m",F4.0,"  day" 

Q=FNG(S[I,3]+T[I, 51/1000) 

Q1=FNG(S[I,3]+T[I, 121/1000) 

WRITE  ( 15  ,4737 )Q1  ,Q,F NG ( T [ 1 ,13]/ 1000) ,T[1 ,14] 

GOTO  4755 

FORMAT  F2 .0 ,F9 .2 , " deg",F8.2,"  deg",F8.1,"  +-" 

WRITE  (15,4745)1  ,"  " ,S$,S[1 ,2]  ,S[1 ,3]  ,T[1 ,11]/10, 

FORMAT  F7.1,"  %",F10.1,"  +-",F5.1,"  deg" 

WRITE  ( 15, 4750)T[ I, 121/10, T[ I, 131/10, T[ I, 141/10 
IF  1/3- 1 NT ( I/3)#0  THEN  4765 
PRINT 
NEXT  I 

Q=FNS2+FNI3+FNS12 
RETURN  0 
R=2 1 5 
RESTORE 

READ  T[ 14,9] ,S[1 ,2] ,S[2,2] ,S[3,2] ,S[4,2] ,S[1 ,3] ,S[2,3] ,S[3,3] ,S[4,3] 

DATA  -730,350.578,299.654,83.256,83.515,58.6812,40.6516,21.9988,-5.4039 

E6=( E-28125-TC 14, 9])/ 36 5. 25 

FOR  1=1  TO  N1 

IF  T[ 1,21]  THEN  4855 

Q=( 0. 012807229+5. 5667917E-03*SINS[ I, 2]*TANS[ I, 3] )*E6 

Ql=5 . 5667927E-03*C0SS[ I ,2]*E6 

S[1 ,2]=S[ 1 ,2]+Q 

S[ 1 ,3]  = S[ 1 ,3]+Ql 

NEXT  I 

T[ 14 ,9]=E-28125 
GOTO  4450 
R=216 

DISP  "SITE  :W.  LONG"; 

C4=FNMC4 

DISP  "SITE :N. LAT" ; 

C5=FNMC5 

DISP  "SITE  :ALT(KM) " ; 

CO=FNNCO 
RETURN  0 
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B - SITE  PREP  computer  listing  (con't) 


4915 

4920 

4925 

4930 

4935 

4940 

4945 

4950 

4955 

4960 

4965 

4970 

4975 

4995 

4997 

5020 

5025 

5030 

5035 

5040 

5075 

5080 

5110 

5115 

5120 

5144 

5145 
5150 
5155 
5160 
5165 
5170 
5175 
5180 
5185 
5190 
5192 
5195 
5200 
5205 
5210 
5215 
5220 
5225 
5230 
5232 
5235 
5240 
5245 
5250 


R=217 

DISP  "ENTER  SUN/MOON  ALMINAC  DATA( 1=YES) " ; 

Q=FNNO 

IF  MOT  Q THEN  5175 
T[ 14 , 10] =T[ 12 ,10] 

SERROR  Q,4945 
N0=5+FNS2 

PRINT  "FOLLOWING  INPUTS  ARE  IN  2 PARTS :lst=deg,2nd=mi n" 
PRINT  "IF  DEC  IS  South:  enter  deg  and  min  NEGATIVE" 
Q=FNS1+FNB8 

TRANSFER  T[ NO , 1]  TO  S$ 

DISP  S$[  1 ,4]  ; " : GHA  0 0 GMT"; 

S [ NO , 2 1 = F NMS  [ NO , 2 ] 

DISP  S$[  1 ,4]  ; " :GHA  @ 12  GMT"; 

Q1=FNM( S[NO ,2]+0.012*T[N0 , 11 ] ) 

IF  Q1>S[ NO ,2]  THEN  5030 
Ql=Ql+360 

T[NO ,11 1=1000*(Q1-S[ NO , 2 ] ) / 12 
DISP  "N. DEC  0 0 GMT"; 

S[NO ,3]=FNMS[ NO ,3] 

DISP  "N. DEC  0 12  GMT"; 

Q3=FNM(S[ NO, 3]+T[ NO, 121/1000) 

T[ NO , 12 ]=1000* ( Q3-S[ NO ,3] ) 

DISP  "N. DEC  0 24  GMT"; 

Q3=FNM(S[N0,3l+T[ NO, 51/1000) 

T[ NO ,51=1000* ( Q3-S[ NO ,31 ) 

IF  N0=5  THEN  5180 

DISP  "HOR  PARALLAX (min)" ; 

Q=FNN(100*FNG(T[N0, 131/1000)) 

T[ NO, 13 1=1000* (Q/60) 

DISP  "AGE  (DAYS)"; 

T[N0,14l=FNNT[N0,14l 

RETURN  0 

N0=6 

GOTO  4965 
R=2 18 

IF  F3  THEN  5225 

DISP  "NEW  F/BW/ELEV/ANT  CONTS( 1=YES) " ; 

Q=FNNO 

IF  NOT  Q THEN  5410 
F1=0 

DISP  "CENTER  FREQ (GHZ)" ; 

F=FNNF 

Cl=2 .997925E+08"2/ ( 8*PI*1 .38054E-23*( F*10~9) "2) 

D0=0.9/F"2 

IF  F3  THEN  5265 

DISP  "ERR  IN  FREQ(X)"; 

FO=FNNFO 

DISP  " BANDWIDTH(MHZ)"; 

W=FNNW 
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5260 

5265 

5270 

5275 

5277 

5280 
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5287 

5290 

5295 

5300 
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5310 
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5320 

5325 

5330 

5335 
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5345 
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5355 
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5370 
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5380 

5385 

5390 

5395 

5397 

5400 

5405 

5410 

5415 

5420 

5435 

5440 

5445 

5447 

5450 

5455 

5460 

5465 


B - SITE  PREP  computer  listing  (con't) 


DISP  "ELEV( DEG) " ; 

L=FNNL 

DISP  "ANT  DIAM  (FT)"; 

D=FNND 

IF  F3  THEN  5300 

DISP  "1=APR  EFF,2=ANT  HPBW,3=CNVL  HPBW"; 
Q=FNNO 

GOTO  Q OF  5290,5310,5350 
GOTO  5380 

DISP  "APERTURE  EFFICIENCY"; 

B2=FNNB2 

B0=3035/D/F*SQR( B3/B2 ) 

GOTO  5325 

DISP  "ANT  HPBW (DEG)"; 

Q=FNN( B0/60) 

B0=60*Q 

B=BO 

IF  B> 14  THEN  5380 

Q=4. 248-1 . 1468* BO+0. 10259* BO" 2-0. 0030247 *B0" 3 
B= B0+Q/(2. 1468-0. 20518*B0+0.0090741*B0'2) 

GOTO  5380 

DISP  " CNVL  HP BW ( DEG) " ; 

Q = F N N ( B/60) 

B=60*Q 

BO=B 

IF  B>14  THEN  5380 

B0=-4. 248+2. 1468*B-0.10259*B~2+0.0030247*B~3 

B2=B3/( B0*D*F/3035 ) ~2 

G=B2*( D*F/0.313)~2 

B9=2*C1*1.38054E-23*G 

B0=3035/D/F*SQR( B3/B2) 

IF  F3  THEN  5410 
DISP  "HPBW  ERR( IS ,%) " ; 

D2=FNND2 
RETURN  0 
R=2 1 9 

IF  F3  THEN  5470 

DISP  " CHANGE :l=G/T(dB) ; 2=T(K) " ; 

Q=FNNO 

GOTO  Q OF  5470,5450 
GOTO  5515 
DISP  "T(K)  = " ; 

T=FNNT 
M=G/T 
GOTO  5515 
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5475 
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5527 
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5560 

5565 

5567 
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5655 

5660 

5665 

5670 

5675 
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5685 

5705 

5710 

5715 

5720 

5725 

5730 

5735 


B - SITE  PREP  computer  listing  (con't) 


DISP  "G/T( DB)=" ; 

Q=10*LGTM 

Q=FNNQ 

M=10"(Q/10) 

T=G/M 

IF  F3  THEN  5560 

DISP  " CHANGE :l=Ta,  2=G/Ta"; 

Q=FNN0 

GOTO  Q OF  5550,5530 

GOTO  5560 

DISP  "G/TA( dB/K) " ; 

Q=FNN( 10*LGT(G/H9) ) 

H9=G/10'(Q/10) 

GOTO  5560 

DISP  "ADDED  NOISE  (K)M; 

H9=FNNH9 
RETURN  0 
R=220 

IF  F3  THEN  5635 

DISP  "ANT  PT  ERR:1=DEG,2=%HPBW" ; 
Q=FNNO 

IF  Q=0  THEN  5680 
IF  Q=2  THEN  5615 
DISP  "DEG"; 

GOTO  5620 
DISP  "%  HPBW" ; 

D5=FNN( D5*(Q=1 ) +05*6000/ BO* (Q=2) ) 

IF  Q=1  THEN  5635 
D5=D5*B0/6000 
Q2=60*D5*2 .784/B 
E5=(1-(SIN(Q2*180/PI)/Q2)*2)*100 
H1=10*LGT( 1+E5/100) 

IF  F3  THEN  5680 
PRINT 

FORMAT  "G/T  data  fit=",F8.5,"  DB" 
OUTPUT  ( A$ , 5652 ) HI 

PRINT  "ANT  PT  ERR  corresponds  to  ";A$ 
PRINT 

DISP  A$ ; " : 1=RETRY" ; 

Q1=FNN0 

IF  Ql=l  THEN  5600 

RETURN  0 

R=221 

DISP  "AMBIENT  TEMP(F)"; 

Q=FNN(A[3]/10) 

A[3]=Q*10 

DISP  "DEW  PT  TEMP(F)"; 

Q=FNN(A[4]/10) 

A[4]=10*Q 
RETURN  0 
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5952 

5955 


B - SITE  PREP  computer  listing  (con't) 


R=222 

DISP  "STORE  S,T , N :0=N0 ,5=EXT , 10=1  NT" ; 

Q=FNB2+FNN0 

IF  NOT  Q THEN  5955 

N[1 ,1]=A1 

N[1,2]=A2 

N[2,11]=B 

N[ 2,10]  = BO 

N[2,9]=B9 

N[3 , 1]=C1 

N[3,4]=C4 

N[3 ,5]=C5 

N[3 ,6]=C6 

N[  3 , 10  ] = CO 

N[3,11]=C 

N[4,1]=D1 

N[4 ,2]  = D2 

N[4 ,3]=D3 

N[4,10]=D0 

N[  4 , 1 1 ] = D 

N[4,5]=D5 

N[6,11]=F 

N[7 , 11]=G 

N[7 ,4]=G4 

N[7 ,5]=G5 

N[7 ,6]=G6 

N[8,1]=H1 

N[8,9]=H9 

N[6 ,10]=F0 

N[12 ,5]=L5 

N[ 12 ,6]=L6 

N[12 ,7]=L7 

N[  1 2 ,8]  = L8 

N[  1 2 ,9]  = L9 

N[ 1 3 , 11]=M 

N[  14 , 6]  = N6 

N[20,11]=T 

N[23 , 11 ]=W 

STORE  DATA  #Q,6,S 

TRANSFER  P$  TO  T[9,l] 

STORE  DATA  #Q,8,T 
STORE  DATA  #Q,10,N 
REWIND  #Q 
GOTO  5745 
RETURN  0 
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5965 

5970 
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6180 


B - SITE  PREP  computer  listing  (con't) 


R=223 

MAT  M=ZER[10,20l 
FOR  1=1  TO  N1 
Q=C-T[I, 151/10 

S=T[I ,6]/lE+03+T[ I ,4]*Q/lE+05 
Q2=EXP(-T[I,16]/1E+04*Q)*S[I,1]*(F/T[I,18]*100KS 
1 5=S [ 1 ,1]+T[1 ,8]/10"3*S[1 ,1] 

Q4=( I#5 )*( I#6 )*T[ I ,5]/lE+05 

N=S+(((F/T[ I, 181*100)  >=  1)-(F/T [1, 181*100 <1))*(T[I ,7l/lE+03+Q4 ) 

N3=F+( ( N>0)-( N<0) )*F0/100 

Q=EXP(-T[I,16]/1E+04*Q)*I5*(N3/T[ I, 181*100) ~N 

T[1 , 10]  = (Q-Q2 )/Q2*10"3 

S[ 1 , 4 1 =Q2 

MCI,  ll=T[1, 101/10^3 

NEXT  I 

SFLAG  1 

RETURN  0 

R=224 

LO=L 

N0=1 

Q=FNC( 1 )+FNS2 

PRINT  TAB18 , "TYPICAL  VALUES  for  G/T  MEASUREMENT  using  CAS  A" 

GOTO  6090 
Q=FNS2 

FORMAT  "ANT  DIAM  ANT  ELEV  APER  EFF  RAD  EFF 
WRITE  ( 15 ,6070) "ANT  HPBW  CONVL  HPBW  EFF  AREA" 

FORMAT  F5.1,F7.1,F9.4,F10.2,F11.4,"  deg",F10.4,"  deg",F9.1,"  nr  2" 
WRITE  ( 15,6080) D,"  ft",L,"  deg" , B2 ,B3 , B0/60 ,B/60 , B9 
RETURN  0 

Q=FNS2+FNH1+FNH2+FNS2 
FORMAT  8X, "PARAMETER", 50X 
WRITE  (15 ,6095 ) "ERR  TO  G/T" 

Q=FNI2+FNK1+FNE1 

WRITE  ( 15 ,6275 ) "F  FREQUENCY  (GHz)  ";F,FO,EO 

S=T[1, 101/10 

WRITE  ( 15 ,6285 ) "S  FLUX  (F.U.=10~ (-26 )W) " ;S[1 ,4l ,S ,S 
FORMAT  10X,2F8.1 

WRITE  (15,6125)"T(ant)  =" , ( Y-l )*T, " K" 

FORMAT  10X  ,2E10 .3 

WRITE  (15,6135) "Xi  =" , ( Y-l )*T/G,"  K" 

WRITE  ( 15  ,6275 ) "Y  Y-FACTOR  " ;Y ,C8 ,C8*Y5 

WRITE  ( 15 ,6220 ) "Y( dB)  =" ,10*LGT(Y) ,"  dB" 

FORMAT  16X  ,F6 .1 ,2F6 .2 
Q=SQR(E1*E1+E8*E8+E9*E9) 

Q=K1*K8*K9 

WRITE  ( 15,6275) "K1  ATM  ABSORPTION  FACTOR" ;K1 , El , El 
WRITE  (15,6235) "oxygen  attn=" ,G4*L4;"  dB" 

WRITE  (15,6235)"water  attn  =" ;G5*L5+G6*L6; " dB/gm*nT3" 
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B - SITE  PREP  computer  listing  (con't) 


FORMAT  10X.2F5.1 

WRITE  ( 15 ,6185 ) "water  dens=";L7;"  gm/nT3" 

WRITE  (15,6185)"atm  bright=" ; B4; " K" 

WRITE  (15 ,6220 ) " si te  alt  =",C0,"  Km" 

WRITE  ( 15,6185)"amb  temp  ="A[3]/10,"  F“ 

WRITE  ( 15 ,6185) "dew  point  ="  ,A[4]/10 , " F" 

FORMAT  10X  ,2F7 .3 

WRITE  (15,6305 ) "K8  DIFFUS+-" ; D8;  "*(  1/K8-1 ) 11  ;K8,E8,E8 

WRITE  ( 15 ,6305) "K9  REFRAC+-" ; D9 ; "*( 1/K9-1 ) " ;K9 ,E9 ,E9 

FORMAT  10X  ,2F7 .4 

WRITE  ( 15,6235 ) " 1st  const:";L8 

WRITE  ( 15  ,6235 ) "2nd  const:";L9 

WRITE  ( 15,6275) "K2  STAR  SHAPE  (CAS  A)  ";K2,E2,E2 
FORMAT  10X , "+- ( " ,F5 . 1 , "*( 1-K2 )+" ,F4 . 1 , " ) )%" 

WRITE  ( 15 ,6255 ) PI , D1 

FORMAT  10X , "HPBW  (+-" ,F5 .2 , "%) " 

WRITE  ( 15,6265 ) D2 

FORMAT  5X ,F11 .3 , " +-",F6.2,"  %"  , 15X , "+-"  ,F6 .2 , " %" 

WRITE  ( 15 ,6275) "K3  BNDWD  EFFECTS  FACTOR  ";K3,E3,E3 
FORMAT  5X , F 1 1 .1 , " +-“,F6.2,"  %",15X,"+-",F6.2,"  %" 

PRINT  " bandwidth  =";W;"  MHz" 

FORMAT  10X  ,2F8 .3 
Q2=T*( Y-l ) 

FORMAT  5X  ,F5 .2 ,F10 .3 , " +-",F6.2,"  l" ,15X , ,F6.2 , " %" 

WRITE  ( 15,6275) "K4  DIFF  SYSTEM  TEMP  ";K4,E4,E4 
FORMAT  5X  ,F7 .4  ,F7 .3 , " +-",F6.2,"  %",14X,"  +-",F6.2,"  %" 

WRITE  ( 15,6315) "K5  ANT  P0INT(+-";D5;"  deg)  ";K5,E5,E5 
WRITE  ( 15 ,6295) "or  G/T  data  fit=  +-" ,Hl,"dB" 

WRITE  ( 15,6275) "K6  ANT  POLARIZATION  FACT" ;K6 ,E6 ,E6 
WRITE  ( 15,6275) "K7  SYSTEM  RESPONSE  FACT  ";K7,E7,E7 
WRITE  ( 15 ,6295) "i nstr  pwr  resp  (+-",C9,"%)" 

WRITE  (15,6295)"Y/(Y-1)=",Y5 

WRITE  ( 15 ,6295) "gauss  curve  fit(+-",A2,"X)" 

WRITE  ( 15 ,6285) "Ta  ADDED  NOISE  (K)  ";H9,D3,D3 

Q=FNI2 

FORMAT  5X, "TOTAL  ERROR,  quad  sum  + diffus  & refr  err" ,21X , ,F6.2 , " %“ 
WRITE  ( 15,6365 ) SQR( S"2+( C8*Y5 ) ~2+El~2+E2~2+E3'‘2+E4~2+E5~2+E6"2+E7~2  )+E8+E9 
Q=F  NS 1 2 
RETURN  0 
R=225 

IF  FLAG1  THEN  6400 
Q=FNJ8 

DISP  "LIST  ALTERNATE  STARS (0= NO) " ; 

INPUT  Q 

IF  Q=0  THEN  6990 
Q=FNS2+FNC1+FNH1+FNH2+FNS3 

PRINT  " STAR"TAB14"FLUX  in  F.U. " ;TAB31 ; "T( ant) " ; 

PRINT  TAB43 ; "K2" ;TAB50 ; "Y- factor" ;TAB62; "Y( dB) " ; 

FORMAT  6X,"Xi (K)" 

WRITE  (15,6430) 
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B - SITE  PREP  computer  listing  (con't) 


PRINT 

J=1 

FOR  A=1  TO  N1 
TRANSFER  T[A,1]  TO  S$ 

Q=1 

FORMAT  F2.0,F8.0,"  +-\F5.1,"  r,F9.2,"  K"  ,F8.3,F11 .4,F8.2,"  DB",E12.3 
Q=FNEA 

M[A,2]=C8*Y5/100 

M[A,3]=E4/100 

M[A,4]=E2/100 

M[A,5]=E7/100 

Q2=( Y-l )*T 

M[A,10]=K2 

WRITE  (15 ,6465) A,"  \S$,S[A,4] ,T[A,10]/10,Q2;K2,Y,10*LGT(Y) ,Q2/G 

NEXT  A 

Q=FNS4 

R=226 

N8=A[3] 

N9=A[4] 

A[l]=2 
A[ 2 ] =3 
A[ 3 ] =4 
A[  4 ] =5 
A[ 5 ] =6 
X2=-l 
X2=X2+ 1 

IF  X2=5  THEN  6575 
IF  A[X2+1]#0  THEN  6560 

FORMAT  19X , "G/T  or  G/TA  MEASUREMENT  ERRORS:  ELEV=" ,F5 .1 , "deg" 

WRITE  ( 15,6575) L 
Q=FNE 1 

FOR  1=1  TO  5 

M[ I ,6]=M[ I ,7]=0 

NEXT  I 

PRINT 

A[  6 ] =25 

A[ 7 ] =35 

A[8]=45 

A[ 9 ] = 55 

A[ 10] =65 

FOR  Xl=l  TO  X2 

I =A[X1 ] 

TRANSFER  T[I,1]  TO  S$ 

PRINT  TAB(A[X1+5]);S$; 

NEXT  XI 
PRINT 
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B - SITE  PREP  computer  listing  (con 1 1 ) 


PRINT 

FORMAT  F8.2,"  %",F8.2," 

PRINT  "E-S  FLUX 
Q=FNT1 

PRINT  "E-F  FREQUENCY 
Q=EO 

GOSUB  6705 
GOTO  6770 
FOR  Xl=l  TO  X2 
WRITE  (15,6670)Q; 

J=A[X1] 

M[J ,6]=M[J ,6]+Q 

M[J  ,7]=M[J  ,7]+Q'2 

NEXT  XI 

PRINT 

RETURN 

FOR  Xl=l  TO  X2 
I =A[ XI  ] 

IF  M[ I ,10]<0.6  THEN  6760 
WRITE  ( 15 ,6670 )M[ 1,6]; 

NEXT  XI 

PRINT 

RETURN 

PRINT  "E-Y  Y-FACTOR  "; 

Q=FNT2 

GOTO  6815 

FOR  Xl=l  TO  X2 

I=A[X1] 

IF  M[I,10]<0.6  THEN  6800 

WRITE  ( 15 ,6670) SQR ( M[ 1 ,7] ) ; 

NEXT  XI 

PRINT 

RETURN 

PRINT  "E-Kl  ATM  TRANS  FACT  "; 

Q=E1 

GOSUB  6705 

PRINT  "E-K2  STAR  SHAPE 
Q=FNT4 

PRINT  "E-K3  BNDWD  EFFECTS  "; 
Q=E3 

GOSUB  6705 

PRINT  "E-K4  DIFF  SYST  TEMP  "; 
Q=FNT3 

PRINT  "E-K5  ANTENNA  POINT  "; 
Q=E5 

GOSUB  6705 

PRINT  "E-K6  ANT  POLARZ  "; 
Q=E6 

GOSUB  6705 

PRINT  "E-K7  SYST  RESPONSE  "; 
Q=FNT5 


,F8.2,"  r,F8.2,"  %\V8.Z,"  V'  ,F8.2,"  %' 
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B - SITE  PREP  computer  listing  (con't) 


6905 

PRINT  "E-K8 

ATM  DIFFUS  " ; 

6910 

Q=E8 

6915 

GOSUB  6705 

6920 

PRINT  "E-K9 

ATM  RE FAC 

6925 

Q=E9 

6930 

GOSUB  6705 

6935 

PRINT  "E-Ta 

NOISE  ADD  "; 

6940 

Q=D3 

6945 

GOSUB  6705 

6950 

Q=FNI ( 2 ) 

6955 

PRINT  "TOTAL 

LINEAR  SUM  "; 

6960 

GOSUB  6740 

6965 

PRINT  "TOTAL 

QUADRATIC  SUM  "; 

6970 

GOSUB  6785 

6975 

A[3]=N8 

6980 

A[4]=N9 

6985 

Q=FNS27 

6990 

RETURN  0 

6995 

R=227 

7000 

Q=FNQ2 

7005 

GOTO  3975 

7010 

R=228 

7015 

DEF  FNQ(Q) 

7020 

A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ 

7025 

B$="1234567890  " 

7030 

GOTO  Q OF  7335,7465,7560 

7035 

A1=N[ 1,1] 

7040 

A2=N[1 ,2] 

7045 

A3=N[ 1 , 3] 

7050 

B=  N[ 2,11] 

7052 

B0=N[2 ,10] 

7055 

B1=N[2 ,1] 

7060 

B2=N[2 ,2] 

7065 

B3=N[2 ,3] 

7070 

B7=N[2 ,7] 

7075 

B8=N[2 ,8] 

7080 

B9=N[2 ,9] 

7085 

C=  N[ 3 ,11] 

7090 

C0=N[3 , 10] 

7095 

Cl  = N[ 3,1] 

7100 

C2=  N[ 3,2] 

7105 

C3=N[3 ,3] 

7110 

C4=N[3 ,4] 

7115 

C5=N[3,5] 

7120 

C6=N[3 ,6] 

7125 

C7-N[3 ,7] 

7130 

C8=N[3 ,8] 

7135 

C9=  N[ 3 ,9] 
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7245 

7250 

7255 

7260 

7265 

7270 

7275 

7280 

7285 

7290 

7295 

7300 

7305 

7315 

7320 

7325 

7330 

7335 

7340 

7345 

7355 

7360 


B - SITE  PREP  computer  listing  (con't) 


D=  N[ 4 ,11] 

D0=N[4 , 10] 

D1=N[4 ,1] 

D2  = N[4 ,2] 

D3=N[4 ,3] 

04= N[ 4,4] 

D5=N[4,5] 

D8=N[4 ,8] 

D9=N[4 ,9] 

F=  N[ 6 , 11 ] 

F0=N[6 , 10] 

F1=0 

F9= N[6 ,9] 

G=N[7 ,11] 

G4=N[7 ,4] 

G5=N[7 ,5] 

G6=N[7 ,6] 

H=  N[8 ,11] 

H1=N[8,1] 

H5=  N[ 8 , 5 ] 

H9=N[8 ,9] 

L=N[12 ,11] 

LI  = N[ 12,1] 

L5=N[12 ,5] 

L6=N[ 12,6] 

L7=  N[ 12,7] 

L8=N[ 12,8] 

L9=  N[ 12 ,9] 

M=  N[ 13,11] 

N=  N[ 14,11] 

N1=N[ 14,1] 

N5=0 

N6=N[ 14,6] 

N7=N[14,7] 

T=  N[ 20 ,11] 

W=  N[ 23,11] 

TRANSFER  T[9,l]  TO  P$ 

RETURN 

Q=FNI5 

PRINT  TAB31 , “PROG  CONSTS" 
A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
Q1 =0 
Q2=- 10 
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7365 

7370 

7375 

7380 

7385 

7390 

7395 

7400 

7405 

7410 

7420 

7425 

7430 

7435 

7440 

7445 

7450 

7455 

7460 

7465 

7470 

7475 

7480 

7485 

7490 

7495 

7500 

7505 

7510 

7515 

7520 

7525 

7530 

7535 

7540 

7545 

7550 

7553 

7555 

7560 

7565 

7570 

7575 

7580 

7585 

7586 

7588 

7590 

7595 

7600 


B - SITE  PREP  computer  listing  (con't) 


FOR  1=1  TO  26 

FOR  J=1  TO  11 

IF  N[I,J]=0  THEN  7435 

Q1=Q1+1 

Q2=Q2+20 

IF  Q2 <55  THEN  7400 
Q2= 10 

IF  Ql#l  THEN  7420 

PRINT 

PRINT 

PRINT  TABQ2 ,A$[ 1,1]; B$[J , J N[ I ,J ] ; 

IF  INT(Ql/3)-Ql/3  THEN  7435 

PRINT 

NEXT  J 

Q2=- 10 

Q1 =0 

NEXT  I 

Q=FNS2+FNI5 

RETURN  0 

R=229 

DISP  "WHICH  PROG  CONST  (0=ST0RE/EXIT) " ; 
INPUT  S$[l,2] 

IF  S$[1,1]="0"  THEN  7525 
I=POS( A$ ,S$[1 , 1] ) 

IF  1=0  THEN  7470 
B$=M 1234567890  " 

J=POS( B$ ,S$[2 ,2] ) 

DISP  "NEW  VALUE:  NOW" ; N[ I , J]  ; 

INPUT  N[ I ,J ] 

Q=FNQ3 
GOTO  7470 
R=230 

DISP  "STORE  N:  0=N0,5=EXT  CASS, 10= I NT  CASS"; 
Q=FNN10 

IF  Q=0  THEN  7553 

STORE  DATA  #Q,10,N 

GOTO  7525 

Q=FNQ1 

RETURN  0 

GOSUB  7035 

RETURN  0 

R=231 

DISP  "ELEV  vs  GMT  PRINT  OUT( 1=YES) " ; 

Q=FNB3+FNN0 

IF  NOT  Q THEN  7780 

DISP  "EL,AZ  for  1=CAS ,6=M00N" ; 

Q4=FNN1 

B1=H=0 

Q=FNS2+FNC3 

D$="#x+.so" 
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7605 

7610 

7615 

7620 

7622 

7625 

7630 

7635 

7640 

7645 

7650 

7655 

7660 

7665 

7670 

7675 

7680 

7685 

7690 

7695 

7696 

7697 

7698 

7700 

7705 

7710 

7715 

7720 

7725 

7730 

7735 

7740 

7745 

7750 

7755 

7760 

7765 

7770 

7775 

7780 

9000 


B - SITE  PREP  computer  listing  (con't) 


FOR  1=1  TO  N1 
TRANSFER  T[I,1]  TO  S$ 

PRINT  D$[I , I] ;"  = " ;S$ , 

NEXT  I 

TRANSFER  T[Q4,1]  TO  S$ 

PRINT 

FORMAT  27X, "SOURCE  ELEV ( deg) " ,/ ,/ ,F13 .0 ,9F5 .0 
WRITE  (15,7630)0,10,20,30,40,50,60,70,80,90 

FORMAT  9"! " , " ! " 

OUTPUT  (A$  ,7640) "" , 

WRITE  (15,7745)"  GMT(hrs)  ",A$,S$,"  EL  AZ" 

El=-0.5 

El  = El+0 .5 

IF  E 1 > 24  THEN  7760 
A$[l,63]=" " 

A$[ 13 , 13]  = " ! " 

A$[58 ,58]=" ! " 

FOR  N0=N1  TO  1 STEP  -1 
IF  S[ NO ,2]=0  THEN  7715 
Q=FNANO 

IF  N0#Q4  THEN  7700 

Q3=L 

Q5=A 

IF  L<0  THEN  7715 
Q=  L/2+13 

A$  [ Q , Q ] = D$  [ NO , NO  ] 

NEXT  NO 
FORMAT  F4.0 
IF  E1-INTE1  THEN  7740 
OUTPUT  (A$[l  ,5] ,77 20 ) E 1 , 

OUTPUT  ( A$[59 ,63]  ,7720 ) El , 

WRITE  ( 15 ,7745 )A$ , 

FORMAT  F7 .2  ,F9 .2 
WRITE  ( 15 ,7745 )Q3 ,Q5 
GOTO  7660 
A$[l  ,72]  = " " 

OUTPUT  ( A$[ 13] ,7640) " " , 

WRITE  ( 15 ,7745 )A$ 

Q=FNS3 
RETURN  0 
GOTO  9999 
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8.10  CROSS  REFERENCE  for  B - SITE  PREP 


SYMBOL  REFERENCE  LINE 


3725 

3780 

4000 

3765 

4020 

3795 

3775 

3890 

3880 

3965 

3942 

3975 

3732 

3913 

7005 

4185 

4175 

4250 

4280 

4350 

4335 

4355 

4345 

4445 

4210 

4450 

4865 

4580 

4560 

4590 

4580 

4735 

4732 

4745 

4725 

4755 

4742 

4765 

4755 

4855 

4830 

4870 

3894 

4965 

5185 

5030 

5020 

5175 

4930 

5180 

5145 

5225 

5192 

5265 

5232 

5300 

5275 

5325 

5305 

5380 

5287 

5330 

5345 

5370 

5410 

5205 

5397 

5470 

5420 

5515 

5447 

5465 

5560 

5495 

5527 

5545 

5600 

5675 

5615 

5600 

209 


CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL  REFERENCE  LINE 


5620  5610 

5635  5567  5625 

5680  5595  5647 


5745  5952 
5955  5755 
6090  6062 


6400  6390 
6560  6570 
6575  6565 


6705  6695  6825  6850  6875  6890 

6915  6930  6945 

6740  6960 

6760  6747 


6770 

6785 

6800 

6700 

6970 

6792 

6815 

6780 

6990 

6410 

7035 

7560 

7400 

7390 

7420 

7400 

7435 

7375 

7425 

7470 

7490 

7520 

7525 

7480 

7550 

7553 

7540 

7660 

7755 

7700 

7696 

7715 

7690 

7700 

7740 

7725 

7760 

7665 

7780 

7585 

9999  9000 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

A 

6450 

6455 

6475 

6480 

6485 

6490 

6496 

6500 

6505 

7698 

A$ 

3870 

3885 

4230 

4240 

4245 

4255 

4265 

4270 

4275 

4295 

4305 

4310 

4390 

4400 

4430 

4440 

5654 

5655 

5665 

7020 

7345 

7485 

7645 

7650 

7740 

7770 

A$[ 

4285 

7420 

7670 

7675 

7680 

7710 

7730 

7735 

7760 

7765 

A1 

5760 

7035 

A2 

3840 

5765 

6350 

7040 

A3 

7045 

AC 

3710 

3715 

3935 

5710 

5715 

5725 

5730 

6210 

6215 

6520 

6525 

6530 

6535 

6540 

6545 

6550 

6570 

6610 

6615 

6620 

6625 

6630 

6640 

6650 

6712 

6745 

6790 

6975 

6980 

B 

3765 

3815 

5325 

5330 

5340 

5355 

5360 

5365 

5370 

5375 

5635 

5770 

6085 

7050 

B$ 

7025 

7495 

7500 

B$[ 

7420 

BO 

3780 

3785 

3810 

5300 

5315 

5320 

5325 

5335 

5340 

5365 

5375 

5380 

5395 

5620 

5630 

5772 

6085 

7052 

B1 

7055 

7590 

B2 

3717 

5295 

5300 

5380 

5385 

5395 

6085 

7060 

B3 

5300 

5380 

5395 

6085 

7065 

B4 

6195 

B7 

7070 

B8 

7075 

B9 

5390 

5775 

6085 

7080 

C 

4455 

5805 

5975 

7085 

CO 

4480 

4900 

5800 

6200 

7090 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

Cl 

5225 

5390 

5780 

7095 

C2 

7100 

C3 

7105 

C4 

4480 

4880 

5785 

7110 

C5 

4480 

4890 

5790 

7115 

C6 

4370 

4375 

4380 

4480 

5795 

7120 

C7 

7125 

C8 

6145 

6370 

6475 

7130 

C9 

3840 

6340 

7135 

CFLAG 

3708 

D 

5270 

5300 

5380 

5385 

5395 

5830 

6085 

7140 

D$ 

7600 

o 

V* 
1 — 1 

7615 

7710 

DO 

5230 

5825 

7145 

D1 

3800 

5810 

6260 

7150 

D2 

3795 

5405 

5815 

6270 

7155 

D3 

5820 

6355 

6940 

7160 

D4 

7165 

D5 

3815 

5620 

5630 

5635 

5835 

6320 

7170 

D8 

3845 

6225 

7175 

D9 

3850 

6230 

7180 

DEG 

3705 

DISP 

3870 

3916 

3919 

3985 

4200 

4215 

4225 

4250 

4290 

4385 

4425 

4875 

4885 

4895 

4920 

4970 

4995 

5035 

5075 

5115 

5150 

5165 

5195 

5215 

5235 

5245 

5255 

5265 

5277 

5290 

5310 

5350 

5400 

5435 

5450 

5470 

5515 

5530 

5550 

5585 

5605 

5615 

5665 

5705 

5720 

5745 

6400 

7470 

7505 

7530 

7575 

7586 
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CROSS  REFERENCE  forB  - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

E 

4195 

4820 

4355 

4860 

4360 

4365 

EO 

3755 

6110 

6690 

El 

3760 

4245 

4315 

6160 

6170 

6370 

6820 

7655 

7660 

7665 

7725 

7730 

7735 

E1C 

6135 

E12 

6465 

E2 

3800 

4275 

4280 

4285 

4335 

4355 

6250 

6370 

6485 

E3 

3805 

4310 

4355 

6280 

6370 

6845 

E4 

3810 

6310 

6370 

6480 

E5 

3820 

4365 

4370 

5640 

5645 

6320 

6370 

6870 

E6 

3825 

4820 

4835 

4840 

6330 

6370 

6885 

E7 

3840 

6335 

6370 

6490 

E8 

3845 

6160 

6225 

6370 

6910 

E9 

3850 

6160 

6230 

6370 

6925 

F 

3718 

3746 

3805 

5220 

5225 

5230 

5300 

5380 

5385 

5395 

5840 

5985 

5995 

6000 

6110 

7185 

FO 

5240 

5875 

6000 

6110 

7190 

FI 

5210 

7195 

F2 

3720 

F3 

3721 

3977 

4010 

5192 

5232 

5275 

5397 

5420 

5495 

5567 

5647 

F9 

7200 

FLAG1 

6390 

FNANO 

7695 

FNB2 

3990 

4205 

5750 

FNB3 

4220 

7580 

FNB8 

4960 

FNC( 

6055 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

FNC1 

6415 

FNC3 

4460 

7595 

FNE( 

3748 

FNE1 

6105 

6585 

FNEA 

6470 

FNF  ( 

3892 

FNFO 

4442 

FNG( 

3734 

3920 

4738 

4739 

4740 

5155 

FNGQ 

4735 

FNGS[ 

4735 

FNH( 

3741 

FNH1 

6090 

6415 

FNH2 

6090 

6415 

FNI  ( 

6950 

FNI2 

6105 

6360 

FNI3 

4630 

4790 

FNI5 

4460 

4485 

7335 

7455 

FNJ  ( 

3900 

FNJ1 

3730 

FNJIO 

3730 

FNJ  11 

3730 

FNJ12 

3730 

FNJ  2 

3730 

FNJ3 

3730 

FNJ4 

3730 

FNJ5 

3730 

FNJ6 

3730 

FNJ7 

3730 

FNJ8 

3730 

6395 

FNJ9 

3730 

FNK1 

6105 

FNM( 

3915 

4997 

5080 

5120 

FNMC4 

4880 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL  REFERENCE  LINE 


FNMC5 

4890 

FNMS[ 

4975 

5040 

FNN( 

3920 

5155 

5315 

5355 

5535 

5620 

5710 

5725 

FNNO 

3990 

4205 

4925 

5200 

5280 

5440 

5520 

5590 

5670 

5750 

7580 

FNN1  7588 

FNN10  7535 


FNNB2 

FNNCO 

FNND 

5295 

4900 

5270 

FNND2 

5405 

FNNF 

5220 

FNNFO 

5240 

FNNH9 

5555 

FNNI NT ( 

3918 

FNNL 

5260 

FNNN6 

4220 

FNNQ 

5480 

FNNT 

5455 

FNNT[ 

5170 

FNNW 

5250 

F NO  ( 

3865 

FN05 

4235 

4260 

4300 

FN09 

4395 

4435 

FNQ( 

7015 

FNQ1 

7553 

FNQ2 

7000 

FNQ3 

7515 

FNS1 

FNS12 

FNS2 


4460 

4700 

4960 

4790 

6375 

4460 

4485 

4630 

4675 

4790 

4945 

6055 

6065 

6090 

6415 

7455 

7595 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

FNS27 

6985 

FNS3 

4640 

6415 

7775 

FNS4 

6510 

F NT  ( 

3925 

FNT1 

6680 

FNT2 

6775 

FNT3 

6860 

FNT4 

6835 

FNT5 

6900 

FNZNO 

3830 

FORMAT 

3744 

4465 

4475 

4495 

4500 

4505 

4525 

4645 

4655 

4680 

4690 

4730 

4737 

4745 

4750 

5652 

5965 

6070 

6080 

6095 

6125 

6135 

6155 

6185 

6220 

6235 

6255 

6265 

6275 

6285 

6295 

6305 

6315 

6365 

6430 

6465 

6575 

6670 

7630 

7640 

7720 

7745 

G 

3746 

3830 

5385 

5390 

5460 

5490 

5535 

5540 

5845 

6140 

6500 

7205 

G4 

5850 

6175 

7210 

G5 

5855 

6180 

7215 

G6 

5860 

6180 

7220 

H 

7225 

7590 

H$ 

0 

HI 

5645 

5654 

5865 

6325 

7230 

H5 

7235 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

H9 

3722 

3746 

5535 

5540 

5555 

5870 

6355 

7240 

I 

4540 

4545 

4550 

4555 

4560 

4565 

4570 

4580 

4590 

4705 

4710 

4725 

4731 

4735 

4738 

4739 

4740 

4747 

4752 

4755 

4765 

4825 

4830 

4835 

4840 

4845 

4850 

4855 

5970 

5975 

5980 

5985 

5990 

5992 

5995 

6005 

6010 

6015 

6020 

6025 

6590 

6595 

6600 

6640 

6645 

6745 

6747 

6750 

6790 

6792 

6795 

7365 

7375 

7420 

7450 

7485 

7490 

7505 

7510 

7605 

7610 

7615 

7620 

15 

5990 

6005 

J 

3935 

3940 

3942 

3950 

3955 

4330 

4355 

6445 

6712 

6715 

6720 

7370 

7375 

7420 

7435 

7500 

7505 

7510 

J1 

4340 

4350 

4355 

K1 

3760 

3810 

6165 

6170 

K2 

3800 

3810 

6250 

6496 

6500 

K3 

6280 

K4 

6310 

K5 

6320 

K6 

6330 

K7 

6335 

K8 

3810 

3845 

6165 

6225 

K9 

3810 

3850 

6165 

6230 

L 

3978 

5260 

6045 

6085 

6580 

7245 

7697 

7700 

7705 

L$ 

3875 

3880 

3885 

LO 

6045 

LI 

7250 

L4 

6175 

L5 

5880 

6180 

7255 

L6 

5885 

6180 

7260 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

L7 

5890 

6190 

7265 

L8 

5895 

6240 

7270 

L9 

5900 

6245 

7275 

LGT( 

3746 

5535 

5645 

6150 

6500 

LGTG 

3746 

LGTM 

5475 

M 

5460 

5485 

5490 

5905 

5965 

7280 

M[ 

3940 

3942 

3950 

3955 

6020 

6475 

6480 

6485 

6490 

6496 

6595 

6715 

6720 

6747 

6750 

6792 

6795 

N 

5995 

6000 

6005 

7285 

NO 

3748 

3810 

3825 

4945 

4965 

4975 

4997 

5020 

5030 

5040 

5080 

5110 

5120 

5144 

5145 

5155 

5160 

5170 

5180 

6050 

7685 

7690 

7696 

7710 

7715 

N1 

4540 

4705 

4825 

5970 

6450 

7290 

7605 

7685 

N3 

6000 

6005 

N5 

7295 

N6 

4220 

5910 

7300 

N7 

7305 

N8 

6520 

6975 

N9 

6525 

6980 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

N[ 

5760 

5765 

5770 

5772 

5775 

5780 

5785 

5790 

5795 

5800 

5805 

5810 

5815 

5820 

5825 

5830 

5835 

5840 

5845 

5850 

5855 

5860 

5865 

5870 

5875 

5880 

5885 

5890 

5895 

5900 

5905 

5910 

5920 

5925 

7035 

7040 

7045 

7050 

7052 

7055 

7060 

7065 

7070 

7075 

7080 

7085 

7090 

7095 

7100 

7105 

7110 

7115 

7120 

7125 

7130 

7135 

7140 

7145 

7150 

7155 

7160 

7165 

7170 

7175 

7180 

7185 

7190 

7200 

7205 

7210 

7215 

7220 

7225 

7230 

7235 

7240 

7245 

7250 

7255 

7260 

7265 

7270 

7275 

7280 

7285 

7290 

7300 

7305 

7315 

7320 

7375 

7420 

7505 

7510 

P$ 

5935 

7325 

1 1 

Cl. 

4230 

4240 

4255 

4265 

4275 

4285 

4295 

4305 

4390 

4400 

4430 

4440 

PI 

3795 

3800 

6260 

PI 

3820 

5225 

5640 

Q 

3730 

3734 

3736 

3738 

3741 

3742 

3865 

3892 

3893 

3900 

3905 

3910 

3925 

3940 

3990 

3995 

4205 

4210 

4235 

4260 

4300 

4315 

4320 

4325 

4395 

4435 

4442 

4460 

4485 

4565 

4570 

4630 

4640 

4660 

4670 

4675 

4700 

4731 

4732 

4733 

4738 

4740 

4790 

4835 

4845 

4925 

4930 

4940 

4960 

5155 

5160 

5200 

5205 

5280 

5285 

5315 

5320 

5335 

5340 

5355 

5360 

5440 

5445 

5475 

5480 

5485 

5520 

5525 

5535 

5540 

5590 

5595 

5600 

5620 

5625 

5710 

5715 

5725 

5730 

5750 

5755 

5950 

5975 

5980 

5985 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

Q (con  t) 

6005 

6010 

6055 

6065 

6090 

6105 

6160 

6165 

6360 

6375 

6395 

6405 

6410 

6415 

6460 

6470 

6510 

6585 

6680 

6690 

6710 

6715 

6720 

6775 

6820 

6835 

6845 

6860 

6870 

6885 

6900 

6910 

6925 

6940 

6950 

6985 

7000 

7015 

7030 

7335 

7455 

7515 

7535 

7540 

7553 

7580 

7585 

7595 

7695 

7705 

7710 

7775 

QO 

3780 

3785 

3790 

3915 

3918 

3920 

Q1 

3736 

3738 

3785 

3790 

4320 

4325 

4355 

4370 

4665 

4670 

4739 

4740 

4840 

4850 

4997 

5020 

5025 

5030 

5670 

5675 

7355 

7380 

7400 

7425 

7445 

Q2 

3770 

3790 

3795 

3815 

3820 

4325 

4330 

4355 

5635 

5640 

5985 

6010 

6015 

6300 

6495 

6500 

7360 

7385 

7390 

7395 

7440 

Q3 

3918 

3920 

3923 

5080 

5110 

5120 

5144 

7697 

7750 

Q4 

3920 

3923 

5992 

5995 

7588 

7622 

7696 

05 

7698 

7750 

R 

3725 

3740 

3860 

3895 

3914 

3975 

4005 

4170 

4190 

4450 

4625 

4800 

4870 

4915 

5190 

5415 

5565 

5685 

5740 

5960 

6040 

6385 

6515 

6995 

7010 

7465 

7525 

7570 

REWIND 

4180 

5950 

S 

5980 

5985 

5995 

6115 

6120 

6370 

s$ 

4545 

4550 

4735 

4747 

4965 

6455 

6500 

6645 

6650 

7610 

7615 

7622 

7650 

S$[ 

4710 

4970 

4995 

7475 

7480 

7485 

7500 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

SERROR 

4940 

SFLAG 

6030 

STATIO 

4175 

STORE 

5930 

5940 

5945 

7545 

SC 

3810 

4550 

4731 

4738 

4739 

4747 

4810 

4835 

4840 

4845 

4850 

4975 

4997 

5020 

5030 

5040 

5080 

5110 

5120 

5144 

5985 

5990 

6015 

6120 

6500 

7690 

T 

3746 

3830 

5455 

5460 

5490 

5920 

6130 

6140 

6300 

6495 

7315 

TRANSFER 

4545 

4710 

4965 

5935 

6455 

6645 

7325 

7610 

7622 

T[ 

3825 

4195 

4360 

4455 

4545 

4550 

4555 

4560 

4565 

4570 

4660 

4665 

4670 

4710 

4725 

4731 

4738 

4739 

4740 

4747 

4752 

4810 

4820 

4830 

4860 

4935 

4965 

4997 

5030 

5080 

5110 

5120 

5144 

5155 

5160 

5170 

5935 

5975 

5980 

5985 

5990 

5992 

5995 

6005 

6010 

6020 

6115 

6455 

6500 

6645 

7325 

7610 

7622 

V 

3940 

3945 

3950 

3955 

W 

3805 

5250 

5925 

6290 

7320 

WRITE 

3746 

3945 

4470 

4480 

4530 

4550 

4555 

4570 

4650 

4670 

4685 

4695 

4735 

4740 

4747 

4752 

6075 

6085 

6100 

6110 

6120 

6130 

6140 

6145 

6150 

6170 

6175 

6180 

6190 

6195 

6200 

6210 

6215 

6225 

6230 

6240 

6245 

6250 

6260 

6270 

6280 

6310 

6320 

6325  . 

6330 

6335 

6340 

6345 

6350 

6355 

6370 

6435 

6500 

6580 

6710 

6750 

6795 

7635 

7650 

7740 

7750 

7770 
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CROSS  REFERENCE  for  B - SITE  PREP  (con  t) 


SYMBOL 

REFERENCE 

LINE 

X 

4465 

4525 

4645 

4680 

4690 

6095 

6125 

6135 

6155 

6185 

6220 

6235 

6255 

6265 

6275 

6285 

6295 

6305 

6315 

6365 

6430 

6575 

7630 

XI 

3930 

3935 

3960 

6635 

6640 

6650 

6655 

6705 

6712 

6725 

6740 

6745 

6755 

6785 

6790 

6800 

X2 

3930 

6555 

6560 

6565 

6570 

6635 

6705 

6740 

6785 

Y 

3830 

3835 

6130 

6140 

6145 

6150 

6300 

6495 

6500 

Y5 

3835 

3840 

6145 

6345 

6370 

6475 

ZER[ 

5965 

LINES:  799 

BYTES 

: 18385 

SYMBOLS:  312 

REFERENCES:  1618 
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8.11  C - MEAS  flow  chart 


LINK  FROM  LOADED 


4700: 

ORSTRT 

4705: 

INITIALIZE 

1 

4790: 

i 

—TRAP:  1SKY , 2G/T,  3EIRP,  4 NEW  TAPE,  ORSTRT 

6205:  4815:  6530:  7550:  4700: 


4815 

4820 

4820 

4822 

4826 

>>- 

(7765: 

(7415: 

FNF1 ) 
FNJ15) 

2G/T 

SELECT  SOURCE,  MAT  A & D = ZER 
SELECT  FREQUENCIES 
#MEAS  PTS  ( N4 ) ? 

#PTS  IN  FIT  ZONE  ? 

1 

4900 

4910 

4960 

> — 

if  NOT 

-3  CUT 

1 

NEW  CUT 

(NEXT)  MEAS#  ? 

then  calc  AZ,  EL  

I 

>4975: 

1 

4965 

1 

SKY  OFFSET  (DEG)? 
1 

1 

1 

1 

4975 

> — 

1 

calc  AZ,  EL  <- 

I 

1 

5015 

(4350: 

FNMO) 

i 

input  TEMP,  DEW  PT 

5015 

5025 

(4350: 

FNM1) 

print  METEOROLOGICAL  DATA 
LABEL  START  CONDITIONS 
| 

5055 

GO? 

i 

5065 

5085 

5122 

5190 

5190 

>-- 

(150: 

(4520: 

i 

meas  sequence 

print  ELAPSED  TIME,  BIAS'S 
meas  info  into  MAT  D,  A 
FNDO)  initialize  VTVM,  PWR  BRIDGE 
FNU1)  MEAS  CHECK 

5215 

(3810: 

FNYO) 

i 

LABEL  PLOT 

l 

5220 

5245 

5255 

5265 

5270 

5295 

>-- 

(210: 

FNPC3) 

if 

if 

1 

NEXT  N3  <- 

MEASURE  POWER 
PLOT  MEAS 

-3  CUT  then  —>5410:  SKY  STATS 

UPDATE  STATISTICS 

N3  < N4  then  NEXT  N3  — 

1 

1 

>5220: 

1 

>5220: 

5300: 
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C - MEAS  flow  chart  (con 1 1 ) 


5300 

5305 

5360 

5500 

> 

calc 

if 

POST  CUT 

ANT  HPBW,  HR  ANG  BIAS,  etc. 
PRINT  RESULTS 

NOT  LAST  CUT  then  NEW  CUT 
| 

>4900 

5505 

5510 

5595 

> 

calc 

END  OF  SET 

FIT,  G/T,  DECL  BIAS,  etc. 
PRINT  RESULTS 

l 

5765 

(5740:  FNF4) 

1 

REMARKS? 

| 

5785 

5795 

6045 

PRINT  STORE  LABEL 
STORE  DATA 

goto  2G/T  

>4815 

6205 

>> 

1SKY 

6210 

(7730 

FNF1) 

SELECT  SOURCE,  MAT  A & D = ZER 

6210 

(7415 

FNJ15) 

SELECT  FREQUENCIES 

6225 

SKY: 

GMT( HRS); START, STOP, STEP? 

6240 

(160: 

FNDO) 

INITIALIZE  HARDWARE 

6240 

(4350 

FNMO) 

input  TEMP,  DEW  POINT 

6240 

(4520 

FNU1 ) 

MEAS  CHECK 

6250 

SET#? 

6270 

STEP  GMT 

< 

6275 

calc  & print  AZ,  L — >STOP  TO 

SET  ANT  1 

6295 

(210: 

FNPC3) 

MEAS  POWER 

1 

6322 

NEXT  GMT  - 

| 

> 

6330 

(4175 

F NG -99) 

calc  STATISTICS 

6346 

(7805 

FNF2 ) 

print  T/Ta 

6410 

goto  TRAP  

>4790: 

6530 

6535 

>> 

3EIRP 

INITIALIZE 

< 

1 

6570 

6760 

RESET:  RANGE,  FILTER,  etc. 
PRINT  HEADING 

1 

1 

6870 

STEP  N3 

<-- 

| 

6890 

(210:  FNPC3) 

MEAS  POWER 

1 1 

6990 

if 

N3  < N4  then  STEP  N3 

l 

— >6870:  1 

7025 

1 

PRINT  RESULTS 
1 

7080 

l 

calc  C/kT,  etc. 
1 

7345 

PRINT  RESULTS 

7410 

goto  3EIRP  

>6530: 
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C - MEAS  flow  chart  (con't) 


7550 

7575 

7590 

7595 

7605 


>> new  TAPE 

NEW  TAPE  IS  0=MEAS , 1=B0TH? 

RESET  N,N7 
R'JN#? 

if  0=MEAS  then  ORSTRT  >4700 

I 

RESET  F4,  MAT  M = ZER 
goto  TRAP 


7610: 

7620: 


>4790 


3700 

3710 

3770 

3775 

3780 

3785 

3790 

3800 

3805 

3810 

3814 

3815 

3816 

3817 

3818 

3820 

3825 

3830 

3835 

3840 

3845 

3850 

3855 

3860 

3865 

3870 

3875 

3880 

3885 

3890 

3891 

3892 

3893 

3895 

3896 

3900 

3905 

3910 

3915 

3920 

3925 

3930 

3935 

3940 


8.12  C - MEAS  computer  listing 


H$="NBS1C.47  MEAS  <D1-F14>  T3-F12" 

E5=6/3600 

FORMAT  "IF  HARDWARE  HANGS  UP" ,/,/,"{ 1 )STOP+STOP" 2)KEY  0",/ 

WRITE  ( 15,3770) " ( 3)0  ( RSTRT)" 

Q=FNS2+FNB8 
GOTO  4700 
DEF  FNF(Q) 

GOTO  Q OF  7730,7805,7825,5740 
GOTO  7765 
DEF  FNY(N3) 

IF  NO =6  THEN  3820 
Q=FNF3 

IF  N2#-3  THEN  3820 
15=15/5 
R1=R1-25*I5 
IF  N3  THEN  3990 
IF  N0=6  THEN  3845 
X 1 = F NZ  ( NO ) 

P=A[9]/10~4*EXP ( D[T6,8]/10"4) 

GOTO  3355 
Q=FNK NO 
X1=200*K1/G 
Y=1+X1*G/T 
R1=T/H9 

I5=( Y-l )*Rl/50 
IF  N#-3  THEN  3880 
15=15/5 

FORMAT  "ZERO  LEVEL  100%  LEVEL  Xi(K)  K Y(DB)  T(" 

WRITE  ( 15, 3880 ) S$[ 1 ,3]  ; " ) S(JN)  T Ta" 

FORMAT  F7.4,"*Ta",F9.4,"*Ta",E11.2,2F8.3,F8.1,F7.0,F7.1,2F8.1 
B$="#ox." 

FOR  M5=l  TO  N[5 ,11] 

Q=FNF3 

WRITE  ( 15 ,3890 )R1 , Y*R1 ,X1 ,K  ,10*LGTY ,X1*G ,S[ NO ,4] ,T, N[6 ,M5] ; B$[M5 ,M5] 

NEXT  M5 

PRINT 

PRINT 

FOR  1=0  TO  5 
PRINT  TAB( 10*1+5), 

IF  N2=-3  OR  N0=0  THEN  3935 
PRINT  20*1; 

GOTO  3940 
PRINT  4*1-10; 

NEXT  I 
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3945 

3950 

3955 

3960 

3965 

3970 

3975 

3980 

3985 

3990 

3995 

4000 

4005 

4010 

4015 

4020 

4022 

4024 

4025 

4030 

4035 

4040 

4045 

4050 

4055 

4057 

4058 

4060 

4065 

4070 

4075 

4080 

4085 

4090 

4095 

4100 

4105 

4110 

4115 

4120 

4125 

4135 

4140 

4145 

4150 

4155 

4160 

4165 


C - MEAS  computer  listing  (con'd) 


PRINT  "(%)" 

FORMAT  10"!....","!" 

A$=" " 

OUTPUT  ( A$ ,3950) "" , 

FORMAT  "N3/sec" 

WRITE  (15, 3965 ) A$ ; " PWR#1  PWR#2  P/Pa" 

IF  N2>-3  THEN  3985 
R1=R1-25*I5 
GOTO  4120 

Q= I NT ( ( P-Rl )/I5+0.5 )+7 

P = I NT ( 10"5*P+0.5)/10"5 

IF  ABS( N3-S3 ) > R5/2  OR  N3=S3  THEN  4020 

N3=-N3 

B$="#ox. " 

GOTO  4025 
B$=">>>>" 

IF  N3=S3  THEN  4025 
B$="#ox. " 

Q2=0 

A$="  " 

A$[l ,72]=" " 

A$[32 ,32]  = " ! " 

FORMAT  F3.0 
FORMAT  F8.4 

OUTPUT  ( A$[l ,3] ,4045) N3 , 

OUTPUT  ( A$[4,6] ,4045 ) ( T2-I NTT2 )*100 , 

IF  C3=3  THEN  4070 

OUTPUT  ( A$[57 ,64] ,4050) 5*V8*( 2*V-V8) , 

OUTPUT  ( A$[65 ,72] ,4050) 5*V9*( 2*V-V8) , 

IF  Q<1  OR  Q>68  THEN  4080 
A$[Q ,Q]=B$[M5 ,M5] 

WRITE  (15,4045)A$; 

N3=ABSN3 
FORMAT  F9.5 
WRITE  ( 15 ,4090) P 
IF  N3<N4  THEN  4120 
A$=" " 

OUTPUT  (A$,3950)"" , 

PRINT  TAB6;A$ 

RETURN  Q 
DEF  FNT(I) 

Q=FNR3 

Q=INT( 100*Q)/3600-100*I NT( Q/10"4)-2/3*I NT ( Q/ 100 ) — I NTQ/90 
IF  FLAG5  THEN  4160 
T1=Q 
SFLAG  5 

IF  I#1  THEN  4170 
El=Q+E3+N4*E5/2+(Q<Tl )*24 
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4170 

4175 

4190 

4195 

4200 

4205 

4210 

4215 

4220 

4225 

4230 

4235 

4240 

4245 

4250 

4255 

4260 

4265 

4270 

4275 

4280 

4285 

4290 

4295 

4300 

4305 

4310 

4315 

4320 

4322 

4323 

4325 

4330 

4335 

4340 

4350 

4360 

4365 

4370 

4375 

4380 

4385 

4390 

4395 

4400 

4405 

4410 

4415 

4420 


C - MEAS  computer  listing  (con'd) 


RETURN  Q+(Q<T1 )*24 
DEF  FNG(Q) 

IF  Q=-99  THEN  4260 

IF  Q>0  THEN  4205 

M1=M2=M3=N9=V1=V2=V3=V4=V5=V6=0 

N9=N9+1 

M1=M1+X2 

M2=M2+X 

M3=M3+P 

V1=V1+X2"2 

V2=V2+X"2 

V3=V3+X*X2 

V4=V4+P*X2 

V5=V5+P*X 

V6=V6+P~2 

GOTO  4340 

G[1,1]=V1-M1A2/N9 

G[1 ,2]=G[2,1]=V3-M1*M2/N9 

G[2 ,2]=V2-M2~2/N9 

MAT  C=  I NV  ( G ) 

Y[1]=V4-M1*M3/N9 
Y[2]=V5-M2*M3/N9 
V6=V6-M3~2/N9 
MAT  F=C*Y 

X2=(M3-F[1]*M1-F[2]*M2)/N9 

V4=1/(4*F[1]) 

V5=-2*V4*F[2] 

Q=X2-V5"2/4/V4 

R2=V6-F[1]*Y[1]-F[2]*Y[2] 

IF  R2>0  THEN  4325 
R2=0 

W1=SQR( R2/( N9-2 ) ) /Q 
IF  V4*( Z-Q)  <=  0 THEN  4340 
B0=SQR(8.7*V4*(Z-Q) )*N4*E5/2/E8 
RETURN  Q 
DEF  FNM(Q) 

GOTO  Q OF  4465,4505 
IF  F3=0  THEN  4410 
DISP  "TEMP(F) " ; 

Q=FNB3+FNN( A[3]/10) 

A[3]=10*Q 

DISP  "REL  HUMID  (%)"; 

Q=FNN( A[5]/10) 

A[5]=10*Q 

A[4]  = 10*( ( A[3]/10) "0.78+  LOG (A[5]/1000 ) /O. Ill ) "1 .282 
GOTO  4425 

A[3]=1000*(FNX110+FNX28+FNR2 ) 

A[ 4 ] = 1000* ( FNX109+FNR2) 

A[5]=1000*EXP(0.111*((A[4]/10)A0.78-(A[3]/10)A0.78)) 
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4425 

4430 

4435 

4440 

4445 

4450 

4455 

4460 

4465 

4470 

4475 

4480 

4485 

4490 

4495 

4500 

4505 

4510 

4515 

4520 

4530 

4535 

4540 

4545 

4546 

4547 

4550 

4555 

4560 

4620 

4625 

4630 

4635 

4640 

4642 

4643 

4644 

4645 

4650 

4655 

4660 

4665 

4670 

4675 

4685 

4690 

4695 


C - MEAS  computer  listing  (con'd) 


IF  N2#-3  THEN  4460 

DISP  "CL0UDS( 0 TO  9=RAIN)"; 

Q=FNB2+FHN( I NT (A[6]/100) ) 

A[6]=100*Q 

DISP  "WIND  (MPH)"; 

Q=FNNO 
A[6]=A[6]+Q 
RETURN  0 

FORMAT  5X , "TEMP  DEW  PT.  REL  HUMD  WATER  DENS 

WRITE  ( 15,4465) "CLOUD  COVER  WIND" 

FORMAT  F9.1,"  F",F10.1,"  F",F11.1,"  X",F10.1,"  gm/tTT3"  ,2F10 .0 , " mph" 
Q= 1 00* ( A[6]/100-I NT ( A[ 6 ] / 1 00 ) ) 

L7=256*EXP(0.111*(A[4]/10)'0.78)/(5*(A[3]/10-32)/9+273.16) 

WRITE  ( 15 ,4475 ) A[33/10 ,A[4]/10 , A[ 5 ] / 10 , L7 , 1 NT ( A[ 6 ] / 100 ) , Q 

PRINT 

RETURN  0 

DISP  "TEMP/HUMD:0=AUT0,1=MANL"; 

F3=FNB3+FNNF3 
RETURN  0 
DEF  FNU(Q) 

I = C2 

E0=E2+FNX ( 63-E2 ) 

P=FNPC3 

IF  E2#E0  THEN  4535 
IF  C3#3  THEN  4550 
Q1 = P/5 

A[ 7 ] =5000*01 
J=5*V9*( 2*V-V9)*( C3#3) 

Q1=FNX66+FNP3+FNX67 
A[8]=-10"4*LGT( A[7]/1000/Q1/A3) 

FORMAT  " BRG  PWR  BRG  PRW+a  PWR+a/STD?  STD  Ta# 

WRITE  (15,4625) "MANL  PRGM  STD  CK  FLTR" 

FORMAT  F7 .4 , "mW" ,F9 .4, "mW" ,F8.0,F11.4,3F6.0,"dB",F9.3,"dB",F5.0,/ 
WRITE  ( 15 ,4635 )A[ 7 ]/1000 ,J ,C2 ,A3 ,C3 ,E6 , "dB" ,E2 ,A[8]/1000 ,A1 
Q=1000*J/A[7]+( C3=3) 

IF  ABS ( A[ 8 ] ) <30  THEN  4645 
DISP  "STD  CK  "; 

IF  E2>0  AND  E2 < 1 1 AND  Q<4  AND  1/Q<4  AND  ABS( A[8] ) <30  THEN  4670 
DISP  "NOT  NORMAL( 1=ADJT) " ; 

Q=FNB8+FNN0 
IF  Q=0  THEN  4670 

Q=FND0+FND1+FNF0+FNJ6+FNJ18+FNJ9+FMS2+FNU1 
RETURN  Q 
DEF  FNJ(Q) 

GOTO  Q OF  4900,6685,5505,7655,6115,7625,6100,6180,7535 
GOTO  Q-9  OF  6075,5990,5945,6415,5835,7415,4822,6160,7520,5920 
GOTO  4790 
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4700 

4705 

4710 

4735 

4740 

4745 

4750 

4755 

4760 

4765 

4770 

4775 

4780 

4785 

4790 

4795 

4800 

4805 

4810 

4815 

4820 

4822 

4823 

4825 

4826 

4830 

4835 

4840 

4855 

4860 

4865 

4870 

4875 

4880 

4885 

4890 

4895 


C - MEAS  computer  listing  (con'd) 


R=301 

DISP  "SUM  TAPE  EXT,  MEAS  INT"; 

Q=FNB4+FNN1 

F4=0 

DISP  "SET  ANT  DELAY  0 BRK  PTS :N0W"FNR4"SEC( 1=REREAD) " ; 

Q=FNB2+FNN0 

IF  Q THEN  4740 

DISP  "ADD  24hrs  TO  CLOCK  RE AD( 1=YES)"; 

Q=FNNO 
CFLAG  5 

IF  Q=0  THEN  4785 

SFLAG  5 

Tl=24 

Q-FND0+FNX69+FNB3+FNJ6+FNJ18+FNJ9+FNM2 

R=302 

DISP  "1SKY ,2G/T ,3EIRP ,4NEW  TAPE ,ORSTRT" ; 

F6=FNB2+FNN1 

GOTO  F6  OF  6205,4815,6530,7550 

GOTO  4700 

R=303 

Q=FNF1+FNJ15 
DISP  "#  MEAS  PTS"; 

N4=FNNN4 

R=304 

DISP  "#  PTS  IN  FIT  ZONE"; 

R5=FNB4+FNNR5 

IF  R5/2- I NT( R5/2 ) THEN  4855 
R5=R5+1 

IF  N4<68  THEN  4875 
DISP  "ERR :#PTS>67" ; 

Q=FNB10+FNW2000 
GOTO  4822 
IF  N4>R5  THEN  4900 
DISP  "ERR:  #MEAS<#FIT"; 

Q=FNB10+FNW2000 

DISP 

GOTO  4822 
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C - MEAS  computer  listing  (con'd) 


R=305 
N3=N9=0 
DISP  "MEAS 
Q=FNB2+FNN( N+l ) 

N=Q-1 
N=  N+l 

N7= I NT ( ( N-l )/6)+l 
N8=N7+F4 

M[N8,10]=N6+N7/100 

N2=N+2-6*N7 

T6=N2+4 

Bl=N2*B/240 

IF  N2#-3  THEN  4975 

DISP  "SKY  OFFSET(DEG)"; 

B1=FNB5+FNN2 

R=306 

E3=FNR4/3600 

S=FNT1 

A=FNA( N0)+X5 
M5=l 

L=L+X6+FNF3 

B9=2*C1*1.38054E-23*G 

R=307 

Q=FNM0+FNC2+FNM1+FNI3 

PRINT 

FORMAT  "AZIMUTH  ELEV  MEAS  HPBW  TIME (HRS)  OFFSET 
WRITE  ( 15,5025)"CUT  RUN  SET  N" 

FORMAT  F7 .2 ,F10 .2 ,F5.0, "sec" ,F9.4,F12.5,F10.3, "deg" ,F6.0,3F5.0 

WRITE  ( 15 , 5035 ) A , L, 3600*E5 , B/60 ,E1 , B1 , N2 , N6 , N7 , N 

PRINT 

FOR  M5=l  TO  N[5 ,11] 

Q=FNF2 
NEXT  M5 
PRINT 

DISP  "GO  :1=NEW  AZ,EL  "; 

Q=FNB1+FNW300+FNB1+FNN0+FNS1 

R=308 

IF  Q THEN  4975 
J=FNT2 

S3= ( El— J )/E5 

WAIT  (S3- 1 NT (S3) )*E5*3.6E+06 
S3= I NT ( S3 ) 

FORMAT  " ELAPSE  PEAK#  PTS  EX  HR  BIAS 
WRITE  ( 15,5095 ) " DCL  BIAS  AZ  BIAS  EL  BIAS" 

FORMAT  F4 .0 ,2F8 .0 ,3F11 .4 , "deg" ,F11 .4 , "deg" 

WRITE  ( 15,5105) (J-S)*3600," sec" ,S3, INT( (E3+S-J )/E5) ,H, "deg" , LI ,"deg" ,X5,X6 

V1=M1=0 

Q=FNS2 
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C - MEAS  computer  listing  (con'd) 


FOR  1=1  TO  4 

D[1 ,75]  = 1000*N[5 , 1] 

NEXT  I 

D[5 ,75]=N[5 ,11] 

D[6 ,75]=3600*E5 
D[T6 ,1]=(A-180)*100 
D[T6,2]=L*100 
D[T6 ,3]=N4 
Q=E1 

IF  El <32  THEN  5160 

Q=E 1-24 

D[T6 ,4]=Q*1000 

D[T6 ,5]=( Bl+Ll )*1000 

A[1]=N7+100*N6 

A[2]=1000*F 

A[  10]  = 1000*00 

R=309 

IF  N2#-3  THEN  5210 

Q=FND0+FND1+FNU1 

P=FNX127+FNPC3 

IF  P<0.327  THEN  5200 

P=0 .327 

A[9]=P*10"5 

U=A[9]/10"4 

T9=E2 

R=310 

M5=l 

Q=FNY0+FND1 

R=311 

N3=N3+1 

M5=N3-N[5 ,11]*( INT( ( N3-1 )/N[5 , 11] ) ) 

T2=FNR3 

E2=T9 

IF  FNR3=T2  THEN  5235 

IF  I NT (T2/0.02)-T2/0 .02  THEN  5230 

P=FNX(128-M5)+FNPC3 

IF  P>0  AND  ABSL0G(P/U)<3.27  THEN  5250 

PRINT  "BAD  PT:P,U=";P;U 

GOTO  5260 

D[T6,N3+7]=L0G(P/U)*10~4 

Q=FNY(N3) 

R=312 

IF  N2=-3  THEN  5410 
Ql=N3-S3+R5/2+0 .5 
X=2*( N3-S3)/N4 
X2=X"2 

IF  QKl  OR  Q1>R5  OR  M5#l  THEN  5295 
Q=FNGN9 

IF  N3<N4  THEN  5220 
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C - MEAS  computer  listing  (con'd) 


R=313 

D[2 ,73]  = 1E+04*(T2/100-T2/100 ) 

PRINT  TAB26 ,T2 
P=FNG( -99) 

D[T6 ,3]=N4 

D[T6,6]=L0G(P/U)*10~4 

Q0=H-V5*N4*E5/2/E8 

D[T6 ,7]=100*( S3+V5*N4/2 ) 

IF  N2#0  THEN  5350 

M[ N8 , 1 ] = I NT ( 10*L+0.5)/10+N0/100 

M[N8,6]=F 

M[N8,4]=B0 

Q=1 

PRINT 

FORMAT  "#FIT  ANT  HPBW  T(" 

WRITE  ( 15,5360)S$;")/Ta  HR  ANG  BIAS(fit)  PEAK#  LEVEL:  ";S$ 

FORMAT  F3 .0 ,F10 .3 , " deg" ,F10 .4 , ,F6.2 , "%" 

WRITE  (15,5370)N9-,B0,P,100*W1, 

FORMAT  F11.4,"  deg" ,F10.2 ,2F9.1 

M5=1+FNF3 

Q=D[T6, 7]/100 

IF  Q>( S3-R5/2 ) AND  Q<( S3+R5/2 ) THEN  5391 
WRITE  (15,5380)"  UNKNOWN" 

Q=FNS2 

PRINT  TAB15, "increase  HR  BIAS  if  peak  before  PEAK#  (try  0.01deg/pt)" 
GOTO  5392 

WRITE  ( 15 ,5380 )Q0 ,Q ,100*( P-Rl )/Rl/( Y-l ) ; "X" 

D[T6,7]=100*S3 

Q=FNS4 

PRINT  TAB20, "decrease  DECL  BIAS  if  1st  cut  too  deep" 

GOTO  5490 
R=314 

IF  N3>1  THEN  5415 

V1=M1=M[N8,1]=M[N8,2]=M[N8,3]=M[N8,4]=M[N8,5]=M[N8,6]=M[N8,7]=M[N8,8]=0 

M[N8,5]=P 

GOTO  5425 

M[N8,M5]=M[N8,M5]+P-M[N8,5] 

M[ N8 ,M5+5]=M[N8 ,M5+5]+( P-M[ N8 ,5] ) "2 
R=315 

IF  N3<N4  THEN  5220 

PRINT 

PRINT 

FORMAT  9X , "T( SKV ) /Ta" , 7X , "SIGMA" ,9X , "MEAN" ,8X , "#PTS" ,9X , "T" ,9X , " : " 

WRITE  ( 15 ,5450) S$ 


233 


5455 

5457 

5459 

5460 

5461 

5463 

5464 

5465 

5470 

5480 

5482 

5483 

5484 

5485 

5487 

5489 

5490 

5495 

5500 

5505 

5510 

5515 

5520 

5525 

5530 

5535 

5540 

5545 

5550 

5555 

5560 

5565 

5570 

5575 

5580 

5585 

5587 

5590 

5595 

5600 

5605 

5610 

5625 

5630 

5635 

5640 


C - MEAS  computer  listing  (con'd) 


FOR  M5=l  TO  N[5,ll] 

M1=M[N8,M5] 

V1=M[N8 ,M5+5l 

D9= INT ( ( N3+N[5 , 11 1-M5 ) /N[5 , 11] ) 

Z=M[N8,5l+Ml/D9 
B$="#ox. " 

Q=100*SQR((V1-Mr2/D9)/(D9-1))/Z 

FORMAT  F16 .4  ,F14 .2  , " %",F11.2,"  %",F9.0,2F13.1 

WRITE  ( 15 ,5465 )Z ,Q ,Q/SQR( D9-1 ) , D9 ,Z*H9 , " "B$[M5,M5l 

IF  N2#-3  THEN  5490 

N[5 ,5+M5]=Z-B6/SI NL 

B5=N[5,6] 

D[2 ,74]=B6*10"5 

D[2+M5 ,74]=M[5 ,5+M5]*10"4 

Z=B5+B6/SI NL 

NEXT  M5 

Q=FNS5 

R=3 16 

IF  N2<2  THEN  4900 

Q1=N9=0 

FOR  J 1=2  TO  6 

X=D[J1, 51/1000 

X2=X"2 

P=U*EXP(D[J1,6]/10A4) 

Q=FNGN9 
NEXT  J1 
V7=FNG( -99) 

Y=V7/Z 
X1=FNZ( NO) 

Q4=K*S[N0, 41/2/1. 38054E+03 
M[N8,8]=Q4/( Y-l )-B4/B9 
M[N8,9]=Q4/Kl/( Y-l )-3/B9 
M=( Y-l  )/Xl 
M[N8,2l=10*LGTM 
Y=( V7+W1 )/Z 

M[ N8 ,3]=10*LGT ( ( V7-Z)/X1 ) 

M[N8,5l=B0*E8/N4/E5*2 
M[  N8 , 7 1 = V 5 
R=3 1 7 

Q=FNC1+FNM1+FNI5+FNS1+INT( 100*LGTG+0.5)/10 

PRINT  TAB22,"BEST  FIT  FOR  THE  5 CUTS  using  G=";Q;"dB" 

PRINT 

WRITE  ( 15 ,5360)S$; " )/Ta  DECL  OFFSET  T/Ta  ELEV  RUN 

WRITE  ( 15 ,5370) N9 ,M[ N8 ,51 , V7 ,100*W1 ; 

FORMAT  F10.3,"  deg" ,F9.4 , "K" ,F6 . 1 , "deg" ,F4.0 ,F5 .0 
WRITE  ( 1 5,5635 )V5,Z,M[N8,1] ,N6,N7 


SET" 
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C - MEAS  computer  listing  (con'd) 


Q=FNS2 

FORMAT  7X , "Ta  via  G/Ta",llX,"G/T",18X,"NEF",15X,"NUF",/,6F14.2 
Q=G/( 10" (M[N8,3]/10) ) 

WRITE  ( 15 ,5650 )Q , " K" ,M[ N8 ,2] , " dB/K" ,M[N8 ,8] , " K/m"2" ,M[N8,9] , " K/m"2" 
Q=FNS2+FNI5 

D[1 ,74]=LGT(V7-Z)*10"4 

PRINT  TAB23,"100*( DATA-FIT)/(MAX  dT( ";S$;")/Ta)" 

PRINT 

FORMAT  10X , " CUT" , 5F10 .0 , / ,F24 . 1 , "%" , 5F9 . 1 
REDIM  Y[ 5] 

FOR  1=2  TO  6 
X=D[I, 53/1000 
P=U*EXP(D[I,6]/10"4) 

Y[I-l]=100*(P-(X-V5)"2/4/V4-V7 )/( V7-Z) 

NEXT  I 

WRITE  (15,5685)-2,-l,0,l,2,Y[l],Y[2],"r,Y[3],"r  ,Y[4],"r  ,Y[5],"r 

Q=FNS2 

REDIM  Y[2] 

PRINT  "TO  REPLACE  A CUT : ( 1 ) KEY  1 then  (2)  KEY  lup" 

GOTO  5765 

R=318 

PRINT 

DISP  "REMARKS:"; 

Q=FNB5 
INPUT  A$ 

D$=A$[1 ,25] 

E$=A$[26 ,33] 

RETURN  0 

R=3 18 . 1 

Q=FNS1+FNF4 

M[40,1]=M[40,1]+1 

Q=2*N7+12 

Q0=M[ 40 , 1 ]+8+F7*33 

FORMAT  "STORE:  INT  FILE", F3.0.15X, "EXT  FI LE" ,F3.0 ,15X , "EXT  SET#",F3.0,/ 
WRITE  ( 15, 5785) Q,QO,M[ 40,1] 

STORE  DATA  Q 
STORE  DATA  #5,Q0 
R=319 

IF  N0=7  THEN  5820 
Q=FNJ13+FNS2 
IF  F6= 1 THEN  5830 
Q=FNS2+FNJ14 
GOTO  6035 
R=320 

PRINT  "MAT  D:" 

MAT  PRINT  D 
Q=FNS2 
RETURN  0 
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C - MEA5  computer  listing  (con’d) 


R=321 

DISP  "LAST  MEAS( 0=N0) " ; 

INPUT  Q 

IF  Q THEN  6055 
GOTO  4815 
R=322 
Q=1+17*F7 
Ql=Q+2 

FORMAT  "EXT  STORE:  M : " ,F3 .0 , 10X , "N : " ,F3 .0 ,/ 

WRITE  (15,5960)Q,Q1 

STORE  DATA  #5,Q,M 

STORE  DATA  #5,Q1,N 

REWIND  #5 

RETURN  0 

R=323 

STORE  4,50,2670 
STORE  DATA  6,S 
STORE  DATA  8,T 
STORE  DATA  10, N 
STORE  12,3700 
REWIND 
RETURN  0 
R= 324 

IF  N7>24  OR  M[40,l]>42  THEN  6052 
IF  F6=l  THEN  4790 
GOTO  4805 

PRINT  "MEAS/SUM  TAPE  FULL" 

Q=FNJ 12+FNS1+FNJ 11 

DISP  " LIST  PRGM  & GO  HOME!" 

END 

R=325 

DISP  "RDY  STORE  SET"; 

INPUT  A$ 

N=N7*6 

M[N8,1]=-N0/100 
GOTO  5765 
R=326 

FOR  M5=l  TO  N[5 , 11 ] 

DISP  ”Ta(K)  #" ;M5 ; 

N[6 ,M5]=FNB2+FNNN[6 ,M5] 

NEXT  M5 
GOTO  4900 
R=327 

DISP  "HR  ANG  BI AS ( DEG) " ; 

H=FNNH 

DISP  "DECL  BIAS ( DEG) " ; 

L1=FNNL1 

DISP  "AZ  BI AS ( DEG) " ; 

X5=FNNX5 
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C - MEAS  computer  listing  (con'd) 


6145  DISP  "EL  BIAS ( DEG) " ; 

6150  X6=FNNX6 
6155  GOTO  4900 

6160  R=328 

6161  DISP  "G/TA( dB) " ; 

6165  B7=FNNB7 

6170  H9=G/10A(B7/10) 

6175  GOTO  4900 

6180  R=329 

6181  DISP  "T/Ta  0 90"; 

6185  B5=FNNB5 

6190  DISP  "CSC  COEF" ; 

6195  B6=FNNB6 
6200  GOTO  4900 
6205  R=330 

6210  Q=FNF1+FNJ15 
6220  N9=X=0 

6225  DISP  "SKY:GMT(HRS);START, STOP, STEP"; 

6230  INPUT  I5.N3.J1 
6235  R=331 

6240  Q=FND0+FND1+FNM0+FNC5+FNM1+FNI3+FNS2+FNU1 
6245  Q=FNS2 

6250  PRINT  TAB30 , "SET  #";N7,S$ 

6255  Q=FNS2 

6260  PRINT  "AZ" , "EL" , "CSC  L" , "GMT" , "T/Ta" 

6265  PRINT 

6270  FOR  E 1 = 1 5 TO  N3  STEP  J1 
6275  PRINT  FNANO,L; 

6285  INPUT  A$ 

6286  FOR  M5=l  TO  N[5,ll] 

6288  B$="#ox. " 

6290  E0=E2 

6295  P=FNX( 128-M5 )+FNPC3 

6300  IF  E0-E2  THEN  6290 

6305  PRINT  TAB30 , 1/SI NL,E1 ; B$[M5 ,M5] ,P 

6308  IF  M5#l  THEN  6322 

6310  X=L 

6315  X2=1/SINL 

6320  Q=FNGN9 

6322  NEXT  M5 

6323  PRINT 
6325  NEXT  El 
6330  Q=FNG( -99) 

6335  B6=Y[1]/G[1 , 1 ] 

6340  B5=N[5 ,6]=N[5 ,7]=N[5 ,8]=N[5 ,9]=(M3-B6*M1 ) / N9 

6344  M5=l 

6346  Q=FNS2+FNF2 

6355  Q=FNS( 38-2*N9+65*I NT ( ( 2*N9+20) /65 ) ) 

6360  R=332 

6410  GOTO  4790 
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C - MEAS  computer  listing  (con'd) 


R= 333 

RETURN  0 

R=334 

N0=7 

N3=0 

E2=6 

H=L1=0 

S$="BIRD" 

MAT  A=ZER 
MAT  D=ZER 
R=335 

IF  FLAG1=0  THEN  6595 
DISP  "RESET  MEAS ( 1=YES) " ; 

Q=FNN0 

IF  Q#1  THEN  6685 
F9=F2=F5=Q5=E9=Z5=F8=Q6=0 
IF  FLAG1=0  THEN  6630 
PRINT  TAB15,"MEAS  RESET" 

Q=FNS1+FNJ 13+FNS2 

DISP  "SLANT  RANGE, 10~3*Km"; 

E7=FNNE7 

DISP  "RCR  GAIN  SLOPE/MHz"; 

P1=FNNP1 
DISP  "AZ( DEG)" ; 

A=FNNA 

DISP  "EL( DEG) " ; 

L=FNNL 

SFLAG  1 

E4=l 

Q=FNJ18 

R=336 

N3=0 

Q=F  NF  0+F  NtdO 
Q=FNX68+FNX67 

L$="CODE :0=SKY ,1=-F,  2=RCR  0 F,  3=+F,4=0THER" 
DISP  L$ • 

Bl=FNNBi+FNJ9+FNJ15+FNJ6 
T=( B5+B6/SI NL)*H9 
DISP  "#  MEAS  PTS" ; 

N4=FNB2+FNNN4 
IF  N4<73  THEN  6765 
DISP  "ERROR:  #MEAS<73"; 

Q=FNB7+FNW2000 

PRINT 

GOTO  6725 
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C - MEAS  computer  listing  (con'd) 


R= 337 

Q=FNC3+FNM1+FNI3+FNS3+FND0+FND1+FNU1+FNS2+FNK1 
PRI NT  TAB20, L$ 

Q=FNS2 

FORMAT  " SLANT  RANGE  AZIMUTH  ELEV  RCR  F BNDWD 

WRITE  (15,6780)"  CODE  RUN  SET" 

FORMAT  E12.3,"Km",F12.2,F9.2,F11.4,F7.1,"  MZ" ,F8.0,2F5.0 
WRITE  ( 15 ,6790)E7*lE+06 , A, L,F ,W, B1 , N6 , N7 
M1=M2=M3=N3=V1=V2=V3=0 
Q=FNS3 

FORMAT  " FILTER#  NOISE  BW  1st  CONST  2nd  CONST 
WRITE  (15,6810) "GAIN  SLOPE  EQIV  BW" 

Q= 1 5+ 1 NT (Al/2-0.5) 

Q0=l+5*(Al/2=INT(Al/2) ) 

W=N[Q,QO]*( 1+P1*N[Q ,Q0+1 ]+Pl ~2*N[Q ,Q0+2] ) 

FORMAT  F5.0,F12.3,"  MHz" ,F10.4,"  MHz" ,F10.4,F11 .4,F9.3,"  MHz" 

WRITE  ( 15 ,6835) A1 ,N[Q,QO] , N[Q ,Q0+1] , N[Q,Q0+2] , " MHz"2" ,P1 , "/MHz" ,W 
Q=FNS3 

FORMAT  " N3  P/P (ADD)  PWR#1  PWR#2  MANUAL 

WRITE  ( 15,6850) "PROG  TIME(HRS)" 

Q=FND1+FNS1 

R=338 

N3=N3+1 

E1=FNT1 

I=FNX100+FNX24+FNR2 

R5=E2 

P=FNPC3 

IF  R5-E2  THEN  6885 
IF  P>0  THEN  6925 
P=1 
Q=E1 

IF  El < 32  THEN  6950 
Q=E 1 - 24 

FORMAT  F5.0,F13.5,2F13.2,F6.0,"  dB",F6.0,"  dB",F12.5 
IF  Q0=0  THEN  6965 
Q1=5*Q1*10"( ( E2+E6 ) / 10 ) 

Q3=5*Q3*10"( (E2+E6)/10) 

WRITE  (15,6950)N3,P,Q1,Q3,E6,E2,E1 

IF  N3/3-INT( N3/3)  THEN  6990 

PRINT 

R=339 

M1=M1+P 

M2=M2+Q1 

M3=M3+(Q3-Q1 ) 

V1=V1+P~2 
V2=V2+Q1~2 
V3=V3+( Q3-Q1 ) "2 
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7025 

7030 

7035 

7040 

7045 

7050 

7055 

7060 

7065 

7070 

7075 

7080 

7085 

7090 

7095 

7100 

7105 

7110 

7115 

7120 

7125 

7130 

7135 

7140 

7195 

7200 

7240 

7245 

7250 

7255 

7260 

7270 

7275 

7280 

7300 

7315 

7318 

7320 

7330 

7335 

7345 

7350 

7355 

7360 

7365 

7370 

7375 


C - MEAS  computer  listing  (con'd) 


R=340 

IF  N3<N4  THEN  6865 
Z=M1/N3+FNS3 

FORMAT  "#PTS" , 10X , "P/P ( ADD)  " , 13X , "PWR#1 ( mW) " , 10X , " ( PWR#2-PWR#1 ) ( mW ) " 
WRITE  (15,7040)"  CODE" 

FORMAT  F3 .0 ,F13 . 5 , " +-" ,F5 . 1 ,F13 .5 , " +-",F5.1,"  %",F13.5,"  +-" ,F5.1 ,F6.0 

Q1=100*SQR( ( Vl-Ml "2/N3 ) /( N3-1) )/Ml*N3 

Q2=100*SQR( ( V2-M2'2/N3 )/ ( N3-1 ) ) /M2*N3 

Q=100*SQR( ( V3-M3~2/N3 )/( M3- 1 ) )/M3*N3 

WRITE  ( 15 ,7050 ) N3 ,M1/N3 ,Q1 , " %” ,M2/N3 ,Q2 ,M3/N3 ,Q , " %",B1 

Q=FNS( 25-4*N4/3+65*I NT( (4*N4/3+36)/65) ) 

R=341 

GOTO  B1  OF  7100,7120,7130 

F9=M1/N3 

GOTO  7195 

F2=M1/N3 

F5=M2/N3 

Q5=M3/N3 

GOTO  7195 

E9=M2/N3 

GOTO  7195 

Z5=M1/N3 

F8=M2/N3 

Q6=M3/N3 

IF  M3>0  THEN  7240 
M3=N3 

B8=(F5+F8)/2 

Q7=(Q5+Q6)/2 

IF  F5  AND  F8  THEN  7270 

B8=F5+F8 

Q7=Q5+Q6 

Q=(F2+Z5)/2 

IF  F2  AND  Z5  THEN  7300 

Q=F2+Z5 

M[ N8 , 8 ] =Q 

E = 1 

Fl=(4E+07*PI*E7*F/2.9979) "2 
IF  B8=0  OR  E9=0  THEN  7345 
E=(E9-B8)/Q7*1 .38E-17*F1*W/J1/S 
M[N8 ,5]=10*LGT ( ( E9/B8-1 )*W*lE+06 ) 

R=342 

Q=FNC1+FNMUFNI5+FNS1 

FORMAT  F6.3," :K8" ,F9 .3 , " :K9" ,F8.2 , "dP( add) " ,F12 .2 , "*10~6  :SR" ,F9 .3 , " : BW" 

WRITE  (15,7355)J1,S,B8,E7,W 

Q-FNS2 

FORMAT  "SPACE  LOSS  T/T a ONT/Ta  ONT/SNT  rev  EIRP*G/Ta 
WRITE  (15,7370)"  C/kT  RUN  SET" 
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7380 

7385 

7390 

7395 

7400 

7405 

7410 

7415 

7417 

7418 

7420 

7421 

7422 

7424 

7425 

7428 

7430 

7431 

7432 

7434 

7435 

7445 

7450 

7455 

7460 

7465 

7470 

7475 

7480 

7485 

7490 

7492 

7494 

7496 

7498 

7500 

7502 

7504 

7506 

7508 

7510 

7515 

7520 

7521 

7525 

7530 


C - MEAS  computer  listing  (con'd) 


FORMAT  F7.2,"  dB" ,3F10.4,F10.2,"  dBW",F11.2,"  dB  ",2F5.0 

Q=o 

IF  F9=0  THEN  7400 
Q=M[N8,8]/F9 

WRITE  ( 15 ,7380) 10*LGTF1 ,F9 ,M[ N8 ,8] ,Q ,10*LGTE ,M[ N8,5] , N6 , N7 

Q=FNS2+FNI5+FNF4 

GOTO  6035 

R=343 

DISP  "NEW  FREQS"; 

Q=FNB2+FNN0 
IF  Q=0  THEN  7500 
DISP  "#  of  FREQS"; 

N[5 , 11 ]=FNB2+FNNN[5 , 11] 

FOR  M5=l  TO  N[5,ll] 

DISP  "FREQ(MHz)  #";M5; 

Q=FNB2+FNN( N[5 ,M5]*1000) 

N[5 ,M5]=Q/1000 
NEXT  M5 
F=N[5 ,M5] 

IF  Q/1000=F  THEN  7415 
F=Q/1000 

C1=2.997925E+08A2/(8*PI*1.38054E-23*(F*10“9)“2) 

D0=0 .9/F"2 

G=B2*( D*F/0.313) "2 

B9=2*C1*1.38054E-23*G 

B=4 134/ D/F 

FOR  1=1  TO  N1 

Q2= ( 1— T[ I ,16]/lE+04) " ( C-T[ I,15]/10)*S[I,1]*(F/T[I ,18]* 100) ^ ( T[ I ,6]/1000) 
I5=S[I,1]+T[I ,8]/1000*S[I ,1] 

A=T[ 1 , 6 ] / 1000+ ( ( ( F/T[  1 ,18]* 100 ) >=  1 )- (F/T[  1 ,18]*100<1 ) )*T[  1 ,7]/1000 
N3=F+( (A>0)-(A<0) )*F0/100 

Q=( 1-T[ I , 16]/lE+04) ~ ( C-T[ I ,15]/10)*I5*(N3/T[I,18]*100)AA 
T[I , 10]=(Q-Q2)/Q2*1000 
S[ I ,4]=Q2 
NEXT  I 

IF  N[5 ,11]=0  THEN  7415 

DISP  "YOUR  NAME ( =NC,xl3):  ";X$[8]; 

INPUT  A$ 

IF  A$[l ,1]="  " THEN  7515 
X$[5,7]="by  " 

X$[8]=A$ 

RETURN  0 
R=344 

DISP  "NOISE  ADD :0=#1&#2 ,1=#1 ,2=#2 ,3=N0" ; 

C3=FNNC3 
RETURN  0 
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7535 

7536 

7540 

7545 

7550 

7555 

7560 

7565 

7570 

7575 

7580 

7590 

7595 

7600 

7602 

7605 

7610 

7615 

7620 

7625 

7630 

7635 

7640 

7645 

7650 

7655 

7656 

7660 

7665 

7670 

7675 

7680 

7685 

7690 

7695 

7700 

7705 

7710 

7730 

7742 

7743 

7745 

7750 

7755 

7756 

7757 

7760 

7765 

7770 

7775 

7780 

7785 

7787 

7800 

7805 

7806 

7810 

7815 

7820 

7825 

7830 

7835 

7840 

7845 

9000 

9100 


C - MEAS  computer  listing  (con'd) 


R=345 

DISP  "INSERT  5DB  WHEN  T(ADD)"; 

C2=FNNC2 
RETURN  0 
R=346 

DISP  "STORE  PRGM ( 1 = YES ) " ; 

Q=FNN1 

IF  Q=0  THEN  7575 
Q = F N J 1 1 

DISP  "NEW  TAPE  IS :0=MEAS , 1=B0TH" ; 

Q=FNNO 

N=N7=0 

DISP  "RUN  #" ; 

N[6 ,6]=N6=FNNN6 
IF  Q THEN  7610 
GOTO  4735 
MAT  M=ZER 
F4=0 

GOTO  4790 
R=347 

DISP  "FLTR : 1=2 @30 ,2=1070 ,3=2070 ,4=5070" ; 

A1=FNNA1 

DISP  "INPUT  ATTN(dB)"; 

E6=FNNE6 
RETURN  0 
R=348 

DISP  "STAR#"; 

N0=FNNN0 
B1 =0 

TRANSFER  T[N0,1]  TO  S$ 

FORMAT  "AZ=" ,F7 .2 , " EL=",F7.2,"  BIAS :HR, DLC,AZ,EL 

El=FNT0+3/3600 

WRITE  (15,7675) FNANO+X 5 , L+X6 ,H , B1 ,X5 ,X6 , " "S$, 

DISP  "AZ="A+X5"  EL=" L+X6 

WAIT  2000 

PRINT 

GOTO  7680 

R=349 

R=350 

TRANSFER  T[ NO , 1 ] TO  S$ 

Q=NO 

DISP  " :MAT  D=0)  SOURCE  :";SS; 

N0=FNB3+FNNN0 
IF  Q#NO  THEN  7742 
MAT  A=ZER 
MAT  D=ZER[6 ,75] 

RETURN  0 
R=351 

DISP  "STD( " ; INT( 10"4*LGTA3)/1000; "dB) " ; 

Q=FNNA3 

IF  Q=A3  THEN  7800 
A3=Q 

GOTO  7770 
RETURN  0 
R=352 
B$="#ox. " 

FORMAT  22X , "T/Ta  =",F7.4,"  +" ,F8.5 , "*CSC  L ",F2.0 
WRITE  (15, 7810) N[ 5, 5+M5] , B6 ,B$[M5 ,M5] 

RETURN  0 
R=353 

T=( N[5 ,5+M5]+B6/SI NL)*N[6 ,M5] 

R1=T/N[6 ,M5] 

15= ( Y- 1 )*R1/50*N[6,1]/N[6,M5] 

RETURN  0 
PRINT  FNPO; 

GOTO  9000 


,5F7.3 
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8.13  CROSS  REFERENCE  for  C - MEAS 


SYMBOL 


REFERENCE  LINE 


3820 

3845 

3814 

3825 

3816 

3855 

3840 

3880 

3870 

3935 

3920 

3940 

3930 

3985 

3975 

3990 

3820 

4020 

4000 

4025 

4015 

4022 

4070 

4058 

4080 

4070 

4120 

3985 

4100 

4160 

4145 

4170 

4160 

4205 

4195 

4260 

4190 

4325 

4322 

4340 

4255 

4330 

4410 

4365 

4425 

4405 

4460 

4425 

4535 

4545 

4550 

4546 

4645 

4643 

4670 

4645 

4660 

4700 

3785 

4810 

4735 

7605 

4740 

4750 

4785 

4770 

4790 

4695 

6045 

6410 

7620 

4805 

6050 

4815 

5940 

4822 

4870 

4895 

4855 

4835 
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CROSS  REFERENCE  for  C - MEAS  (con't) 


SYMBOL 


REFERENCE  LINE 


4875 

4855 

4900 

4875 

5500 

6112 

6155 

6175 

6200 

4975 

4960 

5070 

5160 

5150 

5200 

5196 

5210 

5185 

5220 

5295 

5430 

5230 

5240 

5235 

5235 

5250 

5246 

5260 

5248 

5295 

5285 

5350 

5330 

5391 

5383 

5392 

5389 

5410 

5265 

5415 

5411 

5425 

5414 

5490 

5405 

5480 

5765 

5736 

6095 

5820 

5810 

5830 

5820 

6035 

5830 

7410 

6052 

6040 

6055 

5935 

6290 

6300 

6322 

6308 

6595 

6575 

6630 

6600 

6685 

6590 

6725 

6755 

6765 

6735 

6865 

7030 

6885 

6895 

6925 

6910 

6950 

6930 
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SYMBOL  REFERENCE  LINE 


6965 

6990 

7195 

6955 

6980 

7095 

7115 

7125 

7240 

7195 

7270 

7250 

7300 

7275 

7345 

7320 

7400 

7390 

7415 

7434 

7500 

7506 

7512 

7515 

7420 

7575 

7565 

7610 

7602 

7680 

7705 

7742 

7755 

7765 

3805 

7770 

7787 

7800 

7780 

9000 

9100 

A 

4990 

5040 

5130 

6560 

6655 

6795 

7485 

7490 

7492 

7690 

7756 

A$ 

3955 

3960 

3970 

4030 

4080 

4105 

4110 

4115 

5760 

6080 

6285 

7504 

7510 

1 1 

<C 

4035 

4040 

4055 

4057 

4060 

4065 

4075 

5761 

5762 

7506 

A1 

4640 

6820 

6825 

6840 

7635 

A3 

4620 

4640 

7780 

7785 

A[ 

3835 

4375 

4380 

4390 

4395 

4400 

4410 

4415 

4420 

4435 

4440 

4455 

4480 

4485 

4490 

4550 

4620 

4640 

4642 

4643 

4645 

5170 

5175 

5176 

5200 

5205 

B 

4955 

5040 

7465 

B$ 

3891 

4010 

4020 

4024 

5463 

6288 

7806 

1 1 

CO 

3895 

4075 

5470 

6305 

7815 
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SYMBOL 


REFERENCE  LINE 


0 

B1 

B2 

4335 

4955 

6795 

7455 

5345 

4970 

7070 

5375 

5040 

7085 

5587 

5165 

7665 

6715 

7685 

B4 

5560 

B5 

5483 

5487 

6185 

6340 

6720 

B6 

5482 

5484 

5487 

6195 

6335 

6340 

6720 

7815 

7830 

B7 

6165 

6170 

B8 

7240 

7255 

7320 

7330 

7335 

7360 

B9 

5005 

5560 

5565 

7460 

C 

4275 

4295 

7475 

7492 

CO 

5176 

Cl 

5005 

7445 

7460 

C2 

4530 

4640 

7540 

C3 

4058 

4546 

4555 

4640 

4642 

7525 

CF  LAG 

4765 

D 

5850 

6565 

7455 

7465 

7757 

D$ 

5761 

DO 

7450 

D9 

5460 

5461 

5464 

5470 

DISP 

4370 

4385 

4430 

4445 

4505 

4644 

4650 

4705 

4740 

4755 

4795 

4822 

4826 

4860 

4880 

4890 

4910 

4965 

5055 

5750 

5925 

6060 

6076 

6103 

6116 

6125 

6135 

6145 

6161 

6181 

6190 

6225 

6580 

6630 

6640 

6650 

6660 

6710 

6725 

6740 

7417 

7421 

7425 

7502 

7521 

7536 

7555 

7575 

7595 

7630 

7640 

7656 

7690 

7745 

7770 

D[ 

3835 

5123 

5125 

5126 

5130 

5135 

5140 

5160 

5165 

5250 

5302 

5310 

5315 

5325 

5382 

5392 

5484 

5485 

5515 

5525 

5672 

5700 

5705 
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SYMBOL 


REFERENCE  LINE 


E 

7315 

7330 

7400 

E$ 

5762 

EO 

4535 

4545 

6290 

6300 

El 

4165 

5040 

5080 

5145 

5150 

5155 

6270  . 

6305 

6325 

6875 

6925 

6930 

6935 

6975 

7680 

E2 

4535 

4545 

4640 

4645 

5206 

5232 

6290 

6300 

6545 

6885 

6895 

6965 

6970 

6975 

E3 

4165 

4980 

5110 

E4 

6675 

E5 

3710 

4165 

4335 

5040 

5080 

5085 

5110 

5126 

5320 

5587 

E6 

4640 

6965 

6970 

6975 

7645 

E7 

6635 

6795 

7318 

7360 

E8 

4335 

5320 

5587 

E9 

6595 

7120 

7320 

7330 

7335 

F 

4295 

5175 

5340 

6795 

7318 

7432 

7434 

7435 

7445 

7450 

7455 

7465 

7475 

7485 

7490 

FO 

7490 

FI 

7318 

7330 

% 

F2 

6595 

7100 

7270 

7275 

7280 

7810 

F3 

4045 

4365 

4510 

5370 

5785 

F4 

4735 

4935 

7615 

F5 

6595 

7105 

7240 

7250 

7255 

F6 

4800 

4805 

5035 

5370 

6045 

F7 

5780 

5950 

F8 

6595 

7135 

7240 

7250 

7255 

F9 

6595 

7090 

7390 

7395 

7400 

FLAG1 

6575 

6600 

FLAG5 

4145 

FNA( 

4990 

FNANO 

6275 

7685 
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SYMBOL 

REFERENCE 

: LINE 

FNB1 

5060 

FNBIO 

4865 

4885 

FNB2 

4435 

4745 

4800 

4915 

6109 

6730 

7418 

7422 

7428 

FNB3 

4375 

4510 

4785 

7750 

FNB4 

4710 

4830 

FNB5 

4970 

5755 

FNB7 

6745 

FNB8 

3780 

4655 

FNC1 

5600 

7350 

FNC2 

5015 

FNC3 

6765 

FNC5 

6240 

FNDO 

4665 

4785 

5190 

6240 

6765 

FND1 

4665 

5190 

5215 

6240 

6765 

6860 

FNF( 

3790 

FNFO 

4665 

6695 

FNF1 

4820 

6210 

FNF2 

5048 

6346 

FNF3 

3815 

3893 

4995 

5381 

FNF4 

5768 

7405 

FNG( 

4175 

5305 

5540 

6330 

FNGN9 

5290 

5530 

6320 

FNI3 

5015 

6240 

6765 

FNI5 

5600 

5670 

7350 

7405 

FNJ  ( 

4675 

FNJ11 

6055 

7570 

FNJ  12 

6055 

FNJ13 

5815 

6610 

FNJ  14 

5825 

FNJ  15 

4820 

6210 

6715 

FNJ  18 

4665 

4785 

6680 

FNJ  6 

4665 

4785 

6715 

FNJ9 

4665 

4785 

6715 
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SYMBOL 

REFERENCE  LINE 

FNK1 

6765 

FNKNO 

3845 

FNM( 

4350 

FNMO 

5015 

6240 

6695 

FNM1 

5015 

5600 

6240 

6765  7350 

FNM2 

4785 

FNN( 

4375 

4390 

4435 

4915  7428 

FNNO 

4450 

4655 

4745 

4760  5060 

6585 

7418 

7580 

FNN1 

4710 

4800 

7560 

FNN2 

4970 

FNNA 

6655 

FNNA1 

7635 

FNNA3 

7775 

FNNB1 

6715 

FNNB5 

6185 

FNNB6 

6195 

FNNB7 

6165 

FNNC2 

7540 

FNNC3 

7525 

FNNE6 

7645 

FNNE7 

6635 

FNNF3 

4510 

FNNH 

6120 

FNNL 

6665 

FNNL1 

6130 

FNNNO 

7660 

7750 

FNNN4 

4823 

6730 

FNNN6 

7600 

FNNN[ 

6109 

7422 

FNNP1 

6645 

FNNR5 

FNNX5 

FNNX6 


4830 

6140 

6150 


CROSS  REFERENCE  for  C - MEAS  (con't) 


SYMBOL 


REFERENCE  LINE 


FNPO 

9000 

FNP3 

4560 

FMPC3 

4540 

5195 

5245 

6295 

6890 

FNR2 

4410 

4415 

6880 

FNR3 

4135 

5230 

5235 

FNR4 

4740 

4980 

FNS( 

6355 

7075 

FMS1 

5060 

5600 

5768 

6055 

6610 

6860 

7350 

FNS2 

3780 

4665 

5120 

5386 

5645 

5670 

5725 

5815 

5825 

5910 

6240 

6245 

6255 

6346 

6610 

6765 

6775 

7365 

7405 

FNS3 

6765 

6805 

6845 

7035 

FNS4 

5394 

FNS5 

5490 

FNT( 

4125 

FNTO 

7680 

FNT1 

4985 

6875 

FNT2 

5075 

FNU( 

4520 

FNU1 

4665 

5190 

6240 

6765 

FNW2000 

4865 

4885 

6745 

FNW300 

5060 

FNX  ( 

4535 

5245 

6295 

FNX100 

6880 

FNX109 

4415 

FNX 110 

4410 

FNX127  5195 
FNX24  6880 
FNX28  4410 


FNX66  4560 

FNX67  4560  6700 

FNX68  6700 


FNX69  4785 

FNY ( 3810  5255 

FNYO  5215 
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FNZ( 

3830 

5550 

FORMAT 

3770 

3880 

3890 

3950 

3965 

4045 

4050 

4090 

4275 

4295 

4465 

4475 

4625 

4635 

5025 

5035 

5095 

5105 

5360 

5370 

5380 

5450 

5465 

5635 

5650 

5685 

5785 

5850 

5960 

6560 

6565 

6780 

6790 

6810 

6835 

6850 

6950 

7040 

7050 

7355 

7370 

7380 

7610 

7675 

7756 

7757 

7810 

FC 

4300 

4305 

4310 

4320 

G 

3850 

3855 

3895 

4275 

5005 

5655 

6170 

7455 

7460 

G[ 

4260 

4265 

4270 

6335 

H 

5110 

5320 

6120 

6550 

7685 

H$ 

0 

H9 

3860 

5470 

6170 

6720 

I 

3910 

3915 

3925 

3935 

3940 

4125 

4160 

4530 

5122 

5123 

5124 

5695 

5700 

5705 

5710 

5715 

6880 

7470 

7475 

7480 

7485 

7492 

7494 

7496 

7498 

15 

3817 

3818 

3865 

3875 

3980 

3990 

6230 

6270 

7480 

7492 

7840 

I NV( 

4275 

J 

4555 

4640 

4642 

5075 

5080 

5110 

J1 

5510 

5515 

5525 

5535 

6230 

6270 

7330 

7360 

K 

3895 

5555 

K1 

3850 

5565 

L 

4995 

5040 

5135 

5335 

5482 

5487 

6275 

6305 

6310 

6315 

6665 

6720 

6795 

7685 

7690 

7830 

LS 

6705 

6710 

6770 

LI 

5110 

5165 

6130 

6550 

L7 

4485 

4490 
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CROSS  REFERENCE  for  C - MEAS  (con't) 


SYMBOL 


REFERENCE  LINE 


LGT( 

4620 

5585 

5672 

7335 

LGTA3 

7770 

LGTE 

7400 

LGTF1 

7400 

LGTG 

5600 

LGTM 

5575 

LGTY 

3895 

M 

5570 

7610 

Ml 

4200 

4210 

4260 

4265 

4280 

4300 

5115 

5412 

5457 

5461 

5464 

6340 

6800 

6995 

7035 

7055 

7070 

7090 

7100 

7130 

M2 

4200 

4215 

4265 

4270 

4285 

4300 

6800 

7000 

7060 

7070 

7105 

7120 

7135 

M3 

4200 

4220 

4280 

4285 

4290 

4300 

6340 

6800 

7005 

7065 

7070 

7110 

7140 

7195 

7200 

M5 

3892 

3895 

3896 

4075 

4992 

5045 

5050 

5212 

5226 

5245 

5285 

5381 

5415 

5420 

5455 

5457 

5459 

5460 

5470 

5482 

5485 

5489 

6101 

6103 

6109 

6110 

6286 

6295 

6305 

6308 

6322 

6344 

7424 

7425 

7428 

7430 

7431 

7432 

7815 

7830 

7835 

7840 

M[ 

4940 

5335 

5340 

5345 

5412 

5413 

5415 

5420 

5457 

5459 

5461 

5560 

5565 

5575 

5585 

5587 

5590 

5630 

5640 

5655 

5665 

5770 

5780 

5790 

6040 

6090 

7300 

7335 

7395 

7400 

N 

3870 

4915 

4920 

4925 

4930 

4945 

5040 

6085 

7590 
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CROSS  REFERENCE  for  C - MEAS  (con't) 


SYMBOL 

REFERENCE  LINE 

NO 

3814 

3825 

3830 

3895 

3920 

4990 

5335 

5550 

5555 

5810 

6090 

6535 

7660 

7670 

7742 

7743 

7750 

7755 

N1 

7470 

M2 

3816 

3920 

3975 

4425 

4945 

4950 

4955 

4960 

5040 

5185 

5265 

5330 

5480 

5500 

M3 

3810 

3820 

4000 

4005 

4022 

4055 

4085 

4100 

4905 

5225 

5226 

5250 

5255 

5270 

5275 

5295 

5411 

5430 

5460 

6230 

6270 

6540 

6690 

6800 

6870 

6975 

6980 

7030 

7035 

7055 

7060 

7065 

7070 

7090 

7100 

7105 

7110 

7120 

7130 

7135 

7140 

7200 

7490 

7492 

M4 

4100 

4165 

4335 

4823 

4855 

4875 

5140 

5275 

5295 

5310 

5320 

5325 

5430 

5587 

6730 

6735 

7030 

7075 

N6 

4940 

5040 

5170 

5640 

6795 

7400 

7600 

N7 

4930 

4935 

4940 

4945 

5040 

5170 

5640 

5775 

6040 

6085 

6250 

6795 

7400 

7590 

N8 

4935 

4940 

5335 

5340 

5345 

5412 

5413 

5415 

5420 

5457 

5459 

5461 

5560 

5565 

5575 

5585 

5587 

5590 

5630 

5640 

5655 

5665 

6090 

7300 

7335 

7395 

7400 

N9 

4200 

4205 

4260 

4265 

4270 

4280 

4285 

4290 

4300 

4325 

4905 

5375 

5505 

5630 

6220 

6340 

6355 

N[ 

3892 

3895 

5045 

5123 

5125 

5226 

5455 

5460 

5482 

5483 

5485 

6101 

6109 

6286 

6340 

6830 

6840 

7422 

7424 

7428 

7430 

7432 

7600 

7815 

7830 

7835 

7840 

OF 

3800 

4360 

4685 

4690 

4805 

7085 

7419 
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CROSS  REFERENCE  for  C - MEAS  (con ' t) 


SYMBOL  REFERENCE  LINE 


3835 

3990 

3995 

4095 

4220 

4240 

4245 

4250 

4540 

4547 

5195 

5196 

5197 

5200 

5245 

5246 

5247 

5250 

5305 

5315 

5375 

5391 

5413 

5415 

5420 

5525 

5705 

5710 

6295 

6305 

6890 

6910 

6915 

6975 

6995 

7010 

6645 

6830 

6840 

7318 

7445 

3780 

3790 

3800 

3815 

3845 

3893 

3990 

4070 

4075 

4120 

4135 

4140 

4150 

4165 

4170 

4175 

4190 

4195 

4315 

4325 

4330 

4335 

4340 

4350 

4360 

4375 

4380 

4390 

4395 

4435 

4440 

4450 

4455 

4480 

4490 

4520 

4642 

4645 

4655 

4660 

4665 

4670 

4675 

4685 

4690 

4710 

4745 

4750 

4760 

4770 

4785 

4820 

4865 

4885 

4915 

4920 

5015 

5048 

5060 

5070 

5120 

5145 

5155 

5160 

5190 

5215 

5255 

5290 

5350 

5382 

5383 

5386 

5391 

5394 

5464 

5470 

5490 

5530 

5600 

5605 

5645 

5655 

5665 

5670 

5725 

5755 

5768 

5775 

5790 

5815 

5825 

5910 

5930 

5935 

5950 

5955 

5965 

6055 

6210 

6240 

6245 

6255 

6320 

6330 

6346 

6355 

6585 

6590 

6610 

6680 

6695 

6700 

6745 

6765 

6775 

6805 

6820 

6830 

6840 

6845 

6860 

6925 

6935 

7065 

7070 

7075 

7270 

7280 

7300 

7350 

7365 

7385 

7395 

7400 

7405 

7418 

7419 

7428 

7430 

7434 

7435 

7492 

7494 

7560 

7565 

7570 

7580 

7602 

7743 

7755 

7775 

7780 

7785 

5320 

5391 

5780 

5790 

6825 

6830 

6840 

6955 

4547 

4550 

4560 

4620 

5270 

5285 

5505 

5955 

5965 

6965 

6975 

7000 

7005 

7015 

7020 

7055 

7070 
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CROSS  REFERENCE  forC  - MEAS  (con't) 


SYMBOL 


REFERENCE  LINE 


Q2 

4025 

7496 

7060 

7070 

7475 

7494 

03 

6970 

6975 

7005 

7020 

Q4 

5555 

5560 

5565 

Q5 

6595 

7110 

7245 

7260 

Q6 

6595 

7140 

7245 

7260 

Q7 

7245 

7260 

7330 

R 

4700 

4790 

4815 

4825 

4900 

4975 

5010 

5065 

5180 

5210 

5220 

5260 

5300 

5410 

5425 

5495 

5595 

5740 

5765 

5805 

5835 

5920 

5945 

5990 

6035 

6075 

6100 

6115 

6160 

6180 

6205 

6235 

6360 

6415 

6530 

6570 

6685 

6760 

6865 

6990 

7025 

7080 

7345 

7415 

7520 

7535 

7550 

7625 

7655 

7710 

7730 

7765 

7805 

7825 

R1 

3818 

3860 

3865 

3895 

3980 

3990 

5391 

7835 

7840 

R2 

4320 

4322 

4323 

4325 

R5 

4000 

4830 

4835 

4840 

4875 

5270 

5285 

5383 

6885 

6895 

RE  DIM 

5690 

5730 

REWIND 

5980 

6025 

S 

4985 

5110 

7330 

7360 

s$ 

5365 

5451 

5625 

5675 

6250 

6555 

7670 

7685 

7742 

7745 

S$[ 

3885 

S3 

4000 

4022 

5080 

5085 

5090 

5110 

5270 

5275 

5325 

5383 

5392 

SFLAG 

4155 

4775 

6670 

STORE 

5795 

5800 

5970 

5975 

6005 

6010 

6015 

6020 

6022 

S[ 

3895 

5555 

7475 

7480 

7496 

T 

3855 

3860 

3895 

6720 

7830 

7835 

T1 

4150 

4165 

4170 

4780 

T2 

4057 

5230 

5235 

5240 

5302 

5303 
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CROSS  REFERENCE  for  C - MEAS  (con't) 


SYMBOL 


REFERENCE  LINE 


T6 

T9 

3835 

5160 

5325 

5206 

4950 

5165 

5382 

5232 

5130 

5250 

5392 

5135 

5310 

5140 

5315 

TRANSFER 

7670 

7742 

T[ 

7475 

7480 

7485 

7492 

7494 

7670 

7742 

U 

5205 

5246 

5247 

5250 

5315 

5525 

5705 

V 

4060 

4065 

4555 

VI 

4200 

4225 

4260 

5115 

5412 

5459 

5464 

6800 

7010 

7055 

V2 

4200 

4230 

4270 

6800 

7015 

7060 

V 3 

4200 

4235 

4265 

6800 

7020 

7065 

V4 

4200 

4240 

4280 

4305 

4310 

4315 

4330 

4335 

5710 

V5 

4200 

4245 

4285 

4310 

4315 

5320 

5325 

5590 

5640 

5710 

V6 

4200 

4250 

4290 

4320 

V7 

5540 

5545 

5580 

5585 

5630 

5672 

5710 

V8 

4060 

4065 

V9 

4065 

4555 

W 

6795 

6830 

6840 

7330 

7335 

7360 

W1 

4325 

5375 

5580 

5630 

WRITE 

3775 

3885 

3895 

3970 

4080 

4095 

4470 

4490 

4630 

4640 

5030 

5040 

5100 

5110 

5365 

5375 

5384 

5391 

5451 

5470 

5625 

5630 

5640 

5665 

5720 

5790 

5965 

6785 

6795 

6815 

6840 

6855 

6975 

7045 

7070 

7360 

7375 

7400 

7685 

7815 

X 

4215 

4230 

4235 

4245 

4465 

5275 

5280 

5450 

5515 

5520 

5650 

5685 

5700 

5710 

5785 

5960 

6220 

6310 

7040 

7810 

x$[ 

7502 

7508 

7510 
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CROSS  REFERENCE  for  C - MEAS  (con 1 1) 


SYMBOL 


REFERENCE  LINE 


XI 

3830 

3850 

3855 

3895 

5550 

5570 

5585 

X2 

4210 

4225 

4235 

4240 

4300 

4315 

5280 

5520 

6315 

X5 

4990 

5110 

6140 

7685 

7690 

X6 

4995 

5110 

6150 

7685 

7690 

Y 

3855 

3865 

3895 

4295 

5391 

5545 

5560 

5565 

5570 

5580 

7840 

Y[ 

4280 

4285 

4320 

5690 

5710 

5720 

5730 

6335 

Z 

4330 

4335 

5461 

5464 

5470 

5482 

5487 

5545 

5580 

5585 

5640 

5672 

5710 

7035 

Z5 

6595 

7130 

7270 

7275 

7280 

ZER 

6560 

6565 

7610 

7756 

ZER[ 

7757 

LINES:  812 

BYTES:  18742 

SYMBOLS: 

363 

REFERENCES 

: 1895 
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8.14  D - REWORK  flow  chart 


LINK  FROM  LOADER  PROGRAM 


50: 

65: 

> 

(4895: 

FNJ2)  calc 

INITIALIZE 
: STAR  FLUX  VALUES 

<KEY  2] 

1395: 

>> 

TRAP:  ORW, 

1 

1 LOAD,  2AUT0,  3=DEL,  4G/T 

<KEY  0] 

1425:  5017:  3118:  4863:  3225: 


1425 

>-- 

ORW 

1425 

INITIALIZE 

1440 

(4985:  FNF1) 

SUM  TAPE  #? 

1460 

REWORK  #? 

1470 

(5008:  FNF7) 

RESULT  SET  #? 

1470 

(2140:  FNV2 ) 

KEY  IN  MEASUREMENT  PARAMETERS 

1475 

OBTAIN  HPBW 

1625 

(5900:  FNVO) 

LOAD  from  INT  or  EXT  cassette? 

1625 

(5940:  FNV1 ) 

LOAD  FI LES : START# , STOP#, STEP? 
| 

1645 

>-- 

NEXT  file 

< — 

1672 

if  LASTFILE  thenM,NSTORE  

>3216: 

1 

1680 

LOAD  DATA 

1 

1685 

PRINT  FILE  DATA 

i 

1700 

if  INCORRECT  FREQ  then  NEXT  FILE  — - 

l 

> — 

-1 

1 

1744 

1 

calculate  FLUX 

1 

1 

1746 

info  to  MAT  M , PRINT  info 

1 

1748 

goto  NEXT  FILE  
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REWORK  flow  chart  (con't) 


3216 

3216 

3216 

>--• 

(3025: 

FNV12 ) 

M,N  STORE 
STORE  MAT  M & N 
goto  PRINT  RESULTS 

— >3135 : 

1 

3118 

3120 

3128 

>>-- 

(5075: 

FNJ3) 

2AUT0 

key  in:  TEMP,  DEW  PT 
REWORK  #? 

I 

1 

1 

<KEY  3]  1 

1 

1 

3135 

3140 

3140 

3140 

3148 

3148 

3150 

>--- 

(3225:  FNJ4) 
(3380:  FNJ5) 
(3565:  FNL  ) 
(5130:  FNF7) 
(3025:  FNV12) 

1 

PRINT  RESULTS 

prt : G/T  DATA  SUMMARY 
SORT,  FIT,  & LIST  DATA 
PRINT  OUT  PLOTS  & TABLES 
DATA  SET  #? 

STORE  RESULTS 
goto  TRAP  

1 

< 

<KEY  4] 
<KEY  5] 

>1395: 

3225: 

» 

■ 4 G/T 

3240: 

(3255:  FNJ6) 

print:  G/T  DATA  SUMMARY 

<KEY  6] 

4863 

>> 

- 3=  DEL 

4864: 

DEL: RUN/SET? 

< 

4880: 

change  sign  of  RUN/SET  number  

>4864: 

5017: 

>> 

1L0AD 

5018: 

(4985:  FNF1 ) 

SUM  TAPE#? 

5018: 

(5008:  FNF7) 

RESULT  SET  #? 

5018: 

(5020:  FNV11 ) 

LOAD  MAT  M & N 

5019: 

goto  TRAP  

->1395 

50 

51 

52 

53 

54 

55 

58 

60 

61 

62 

63 

64 

65 

66 

69 

72 

75 

78 

81 

84 

87 

200 

205 

206 

208 

210 

212 

218 

220 

222 

224 

226 

228 

230 

232 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 


8.15  D - REWORK  computer  listing 


L$="NBS1D.119*  REWORK  <D1-F16>  T4-F12" 

REM  LIN  FIT >>36 1 5 F2=FNV3+1,  DISK:  4995  F7=l 
MAT  M=ZER[40,10] 

MAT  N=ZER 

REM  to  add  SUN  see  D. 105 :2162 ,6004 ,6305 ,7000+ 

B5=53 

T[6 ,8]=143 
B6=30.9 

D7=F3=F7=H9=V8=0 

F 5=F9=R5= 1 

N[21, 2]=0. 136 

F=7 .5 

Q=FNJ2 

GOTO  1395 

DEF  FNA(Q4) 

GOTO  NO-4  OF  84,87 
IF  Q4<0.23  THEN  81 
RETURN  Q4 

RETURN  -4 .248+2 .1468*Q4-0 .10 259*Q4" 2+0. 0030247 *Q4" 3 
RETURN  Q4* ( 1-0 . 2224* ( Q4/FNU3 ) " ( -2 . 1482 ) ) 

RETURN  Q4*( 1-0. 2319*( Q4/FNU4 ) " (-2.207)) 

DEF  FNQ ( L)  = ( N[21 ,2 ]+ N[ 21 ,6]/SI NL)*60 
DEF  FND(Q)=10" (Q/1E+04) 

DEF  FNT(Q) 

Q1=Q*SGNQ 

Q2  = ( Ql-I NT  Q 1 ) *60 

RETURN  SGNQ*( I NT Q 1 + 1 NTQ2 / 100+ ( Q2— I NTQ2 ) *0 . 006 ) 

DEF  FNR(QO) 

DISP  HR/DEG"; 

Q3=FNNINT(SGNQ0*INTSQR(Q0"2) )+10" (-14) 

DISP  "MIN"; 

Q4=FNN( INT( 100*SG NQO*F NT ( Q0-Q3 ) ) ) 

DISP  "SEC11, 

Q5=FNN( 10000*FNT ( SGNQ0*Q0-SGNQ3*Q3-SGNQ4*Q4/60) ) 
RETURN  SGNQ3*( ABSQ3+ABSQ4/60+ABSQ5/3600) 

DEF  FNB(Q) 

FOR  1=1  TO  Q 
BEEP 

WAIT  ABS( 100*( 1-4) ) 

NEXT  I 
RETURN  0 
DEF  FNN(Q) 

DISP  "(  =NC) :" ;Q; 

INPUT  B$ 

IF  B$="  " THEN  330 
RETURN  V A L ( B$ ) 

RETURN  Q 
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335 

340 

345 

350 

355 

360 

365 

370 

375 

385 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 

440 

445 

450 

455 

460 

465 

480 

485 

490 

495 

500 

505 

525 

530 

535 

540 

545 

550 

555 

560 

565 

570 

575 

580 

585 

590 

595 

600 


D - REWORK  computer  listing  (con't) 


DEF  FNI(Q) 

A$=" ==  ==####0000" 

A$=A$[4*Q-3 ,4*Q] 

A$[5]=A$ 

A$[9]=A$ 

FORMAT  F5.1 

WRITE  ( 1 5 , 360 ) A$ ; A$ ; A$ ; A$ ; A$ 

RETURN  0 
DEF  FNK(NO) 

L7=256*EXP( 0.111 *(A[4]/10)'0.78)/( 5*(A[3]/10-32)/9+273.16) 

Q=(0. 92 11/(1 +0.29 12/F~2)+5.107*( l+3596/F~2 )/( l-3596/F~2 )~2) 
Q2=293/((A[3]/10-32 )*  5 / 9+27  3.15) 

G4=6.644E-03*( 1-0. 02252*00) A10.52*Q2*2.75*Q 

Q= 1-0.022 15* ( 11 .02-00) *Q2 

L4=5.145/Q2*( 1-Q~8.775)+3.172*Q~7.775 

Q=( 1+493. 3/F~2)/(  1-493. 3/F"2)A2*L7*(  1+0. 0046*L7) 

G5=l . 451 E+05* ( 1-0.02252*00) "5 .26 2*EXP( -644*Q2/293 ) /( 1/Q2*293 ) "3*Q 
L5=2.09+0.27*( 1-Q2"2) 

G6=2.529E-02*(  1-0. 02252*00)  A5.262*FA2/(1/Q2*293K1.5*L7*(  1+0. 0046*L7) 
L6=2. 17 

Z1=G4*L4+G5*L5+G6*L6 

L8=Q2*(0.9523*( 1-0.02215*00)  5.262+0.0209*L7) 

L9=0.013 

K1=10"(-Z1/10/SINL) 

B4=293/Q2*( 1-K1 )/l .0716 
BO=FNQL 

Q=0.6508*(60*FNU4/B0)"2 

Q2=( N0<5 )*(T[NO ,9]/100/( 1 .2012*60) ) "2+( N0=5 )*2495*( FNU3/B0) "2+(  N0=6)*Q 
K2=( 1-EXP ( -Q2 ) )/Q2*( 1 - ( NO  <5 ) *0 . 00 1 + ( N0=5) *0.0094) 

K3=l 

Q=(W/F/2E+03)"2 

K4=K5=K6=K7=1 

Jl=10~ (-0.00011*F*F/SINL) 

K8=l-( 1-J1 )*EXP( -0.467*Q2) 

Q=l+ ( 2 .909E-04 )*( L8-2* L9/TANL ) / ( SI NL) "2 
S=l/Q 

K9= 1 - ( 1-S)*EXP( -0.467*Q2) 

K=K1*K2*K3*K4*K5*K6*K7*K8*K9 
RETURN  0 

DEF  FNZ( NO)=FNK( NO ) +K*C1*S[ NO , 4 ] *1 E-26 
DEF  FNC(Q) 

N5=N5+1 

Q=FNSQ 

PRINT  H$ ; " , ";X$; 

IF  STAT3=0  THEN  630 
ENTER  (3,*)Q,Q1 
IF  Ql<10"9  THEN  620 
PRINT 
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605 

610 

615 

620 

625 

630 

635 

640 

645 

650 

660 

665 

675 

685 

690 

695 

700 

705 

710 

715 

720 

725 

730 

740 

745 

750 

755 

760 

765 

770 

775 

780 

782 

784 

786 

787 

788 

790 

795 

796 

798 

800 

810 

812 

814 

815 

820 

825 

830 

835 

840 

845 


D - REWORK  computer  listing  (con't) 


DISP  "CLOCK  RESET"; 

INPUT  Q1 
GOTO  575 

FORMAT  " (78" ,F5 .0  ,F6 .2 , " ) " 

WRITE  ( 15 ,620)Q*10"3+I NT(Q1/10~4) , I NTQ1/100-100*I NT(Q1/10~4 ) 

Q=20 

PRINT 

PRINT 

FORMAT  35X  ,F4 .0 ,71X , "RUN" ,F4.0 

WRITE  ( 15,645)-N5,N6 

PRINT 

PRINT  TABQ ,P$[ 13] 

PRINT  TAB(Q) ,P$[ 1 ,3] ; " : " ;P$[9 ,12] ; " ";P$[4,6];n  ";P$[7,8] 

FORMAT  19X,F6.3,"  GHz,"  ,F5.1 ,"  Ft  DISH" 

WRITE  ( 15 ,685 )F , D 
PRINT 
RETURN  0 
DEF  FNS(Q) 

FOR  1=1  TO  Q 
PRINT 
NEXT  I 
RETURN  0 
DEF  FNE(NO) 

E0=0 

E 1 =50* ( 1/K1-1 ) 

IF  B0< 14  THEN  765 
Q2=0 

GOTO  780 

Q0=4.73*( 5.9-B0)+5 .39*SQR( ( 5 .9- BO) "2+0.479 ) 
Q1=(7.12-B0)/ABS(7.12-B0)*2.04*SQR((Q0/1.79)A2-1) 
Q2=0.15+0.354*(Q0+Q1 ) 

D2=100*N[21 ,3]/N[21,l] 

P1=2*SQR( Q2*  2+13*D2"2) 

IF  N0<5  THEN  790 

Q1=60*FNU4/B0 

Q2=0.6508*Q1*Q1 

Q=0.15*Qr 2. 46*F~0. 221+12. 3*( l-Q2/( EXPQ2-1 ) ) 

E2=( ( 1-K2 )*Pl+Dl)*(N0<5)+( N0=5)*( 1 .5+41 .1*( 1-K2 ) )+( N0=6)*Q 

E3=(W/F/2E+03)"2*50 

E4=0 

IF  NO <5  THEN  810 

E4=0.4*B0*B0/K1/K2/S[ NO ,4]/K8/K9*( N0<5)+( N0=5 )*0.06+( N0=6 )*0.09 

E5=(10"(H1/10)-1)*100 

E6=0.1 

IF  N0>4  THEN  820 
E6=0.023*T[N0,11] 

Y=1+FNZN0*G/T 
Y5=Y/( Y-l ) 

E 7= SQR ( ( C9*Y5)~2+A2"2) 

E8=100*D8*( 1/K8-1 ) 

E9=100*D9*( 1/K9-1 ) 

RETURN  0 
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D - REWORK  computer  listing  (con't) 


865  DEF  FNM(Q) 

870  Q=FNSQ 

875  FORMAT  5X,"TEMP  DEW  PT.  REL  HUMD  WATER  DENIS 

880  WRITE  ( 15,875) "CLOUD  COVER  WIND" 

885  FORMAT  F9.1,"  F",F10.1,"  F"  ,F11 .1 ,"  %",F10.1,"  gm/itT3"  ,F10 .0  ,F10 .0 , “ mph" 
890  A[5]=1000*EXP(0.111*( (A[4]/10)"0.78-(A[3]/10)"0.78)) 

895  Q= 1 00* ( A[6 ] - 1 NT ( A[ 6 ] ) ) 

900  WRITE  ( 15,885 )A[3]/10,A[4]/10,A[5]/10,L7 , 1 NT ( A [ 6 ] / 1 00 ) ,Q 
905  RETURN  0 
910  DEF  FNH(Q) 

915  GOTO  Q OF  930 

920  PRINT  TAB31 , "FIT  TO  “ ; N[1 ,9] ; "DATA" 

925  RETURN  0 

930  PRINT  "TAPE";V8"data" ;F9;  L$; 

935  FORMAT  5X , "REWORK" ,F6 .2 
940  WRITE  (15,935)N[1,10] 

945  PRINT  TAB15 , D$ 

950  RETURN  0 
1020  R=401 

1026  FORMAT  " K1  K2  K3  K6  K8  K9  K " 

1030  WRITE  (15,1026)"  APR-eff  R-eff  S(FU)  Xi(K)" 

1035  FORMAT  F7 .3 ,6F6 .3 ,F8.4 ,F7 .2 ,F11 .1  ,E11 .3 

1040  WRITE  ( 15 ,1035) K1 ,K2 ,K3 ,K6 ,K8,K9 ,K , B2 ,B3 ,S[NO ,4] ,FNZ( NO) 

1045  PRINT 
1050  RETURN  0 
1250  DEF  FNG(Q) 

1255  REM  <G/T  #2  P135> 

1260  IF  Q=-9  THEN  1330 

1265  IF  Q>0  THEN  1275 

1270  M1=M2=M3=N9=V1=V2=V3=V4=V5=V6=0 

1275  N9=N9+1 

1280  M1=M1+X2 

1285  M2=M2+X1 

1290  M3=M3+P 

1295  V1=V1+X2A2 

1300  V2=V2+X1'2 

1305  V3=V3+X1*X2 

1310  V4=V4+P*X2 

1315  V5=V5+P*X1 

1320  V6=V6+P~2 

1325  GOTO  1368 

1330  Y[1]=V4-M1*M3/N9 

1335  Y[2]=V5-M2*M3/N9 

1340  G[1 ,1]=V1-M1"2/N9 

1345  G[1 ,2]=G[2 ,1]=V3-M1*M2/N9 

1350  G[2 ,2]=V2-M2/V2/N9 

1355  MAT  C= I NV ( G ) 

1360  MAT  F=C*Y 

1365  R2=V6-M3"2/N9-F[1]*Y[1]-F[2]*Y[2] 

1366  X=(M3-F[1]*M1-F[2]*M2)/N9 
1368  RETURN  0 
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D - REWORK  computer  listing  (con't) 


DEF  FNF(Q) 

GOTO  Q OF  4985,4815,1020,5320,5574,5624,5008,5690,5600,5633 
GOTO  1395 
DEF  FNO(Q) 

Q=FNNQ 
RETURN  0 
DEF  FNU(Q) 

GOTO  Q OF  5940,5960,6300,6400,6700,6900,7000,7100,7200,7300,4190 
GOTO  5900 
DEF  FNV(QO) 

GOTO  QO  OF  4570,2140,4430,4480,4548,5800,5130,5175,5642,5660,5020,3025,5648 
GOTO  1395 
DEF  FNJ(Q) 

GOTO  Q OF  3165,4895,5075,3225,3380,3255,3018 

R=402 

F6=0 

REDIM  C[2,2],G[2,2],F[2],M[40,10],Y[2] 

DISP  "0  RW,1L0AD,2AUT0,3=DEL,4G/T" ; 

Q=FNB3+FNN0 

GOTO  Q OF  5017,3118,4863,3225 

R=403 

Q=FNF1 

DISP  "REWORK#"; 

N[1 , 10]=FMNN[ 1 ,10] 

Q=FNF7+FNV2 

DISP  "PREFIT  HPBW  ( 1=YES) " ; 

F8=FNN1 

IF  F8=0  THEN  1590 

R=404 

Q=FNV7 

SERROR  Z5 ,1520 
Q=FNV8 

IF  Z5= 59  THEN  1510 

SERROR  Z5 ,1600 

Q=FNS ( 36-M[40,l] )+FNS6+FNJ5 

GOTO  1600 

Q=FNV6 

R=404 

F4=0 

F6=F5=1 

DISP  "RSLTS  TO  NOW  SUMMARY ( 1=YES) " ; 

Q=FNNO 

IF  Q THEN  1625 
MAT  M=ZER[40,10] 

Q=FNU0+FNU1 
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D - REWORK  computer  listing  (con't) 


1645  R=405 

1650  SERROR  Z5 ,3195 

1655  F2=H=L1=N4=T6=0 

1665  F4=F4+1 

1670  N8=M[40,1]+1 

1672  IF  N8=40  THEN  3216 

1675  N2=F4*V+U-V 

1676  IF  N2>U1  THEN  3216 

1680  LOAD  DATA  #( 10-5*F7) ,N2 

1685  PRINT  "FI LE" ; N2 ,P$ , " RUN/ SET" ; A[ 1 ] / 100 

1690  PRINT  TAB5 ,S$ ,H$ , "FREQ" ;A[ 2 1/1000 

1695  Q=FNS2 

1697  A4=0 

1700  IF  D[1 ,2]=0  OR  D[l,69]=0  THEN  1645 
1705  Q3= A[ 2 ] / 1000 

1710  Q=F3-Q3 

1715  R=406 

1720  IF  F3  AND  Q THEN  1645 
1725  IF  F=Q3  THEN  1740 
1728  F=Q3 
1730  Q=FNJ2 

1740  N7= (A[l]/100-I NT (A[l]/100) )*100 

1741  N6= I NT (A[l]/100) 

1742  IF  N0<5  THEN  1746 

1743  D4=VAL(P$[7 ,8] ) 

1744  Q=FNU(5*( N0=5)+6*( N0=6) ) 

1746  Q=FNF4+FNU(7*( N0=5)+8*( N0=6)+9*( N0<5) )+FNV13+FNF5+FNF9+FNS13 

1747  M[40,1]=M[40,1]+1 

1748  GOTO  1645 

2140  R=411 

2145  DISP  "ANT  DIAM(FT)"; 

2150  D=FNND 

2155  DISP  "SITE  ELEV(Km)"; 

2160  C0=FNNC0 

2162  DISP  "NEW  MOON  DAT  A ( 0=  NO ) " ; 

2163  Q=FNN1 

2164  IF  Q=0  THEN  2168 

2165  Q=FNU2 

2168  DISP  "FREQ(GHz)" ; 

2170  F=F3=FNNF 
2175  Q=FNJ2 
2195  RETURN  0 
2990  R=415 

2995  Q=N8+1 

3000  M[Q,2]=M[Q,3]=M[Q,4]=M[Q,5]=M[Q,6]=0 

3005  Q=FNI5 
3010  Q=FNS5 
3015  GOTO  1655 
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D - REWORK  computer  listing  (con't) 


R=4 1 6 

DISP  "STORE  MAT  M&N(0=N0)"; 

Q=FNB2+FNN1 

IF  Q=0  THEN  3024 

Q=FNF7+FNV12+FNS10 

RETURN  0 

R=4 1 7 

N[6,11]=F 

N[8,9]=H9 

TRANSFER  P$  TO  T[9,l] 

FOR  1=1  TO  10 
N[ 17 , 1 ] =T[ 9 ,1] 

N[ 18 , I ]=T[9 , 1+10] 

NEXT  I 
Q=10-5*F7 
Ql=4*F9-3+17*F7 
STORE  DATA  #Q,Q1,M 

STORE  DATA  #Q,Q1+2,N 

FORMAT  " FREQ" ,10X,"M  FILE",7X,"N  FI LE" ,8X , "TAPE" ,7X , "SUMMARY  SET",4X 

WRITE  (15,3075) "REWORK" 

FORMAT  F9.3,3F13.0,F13.1,F15.2 
WRITE  ( 15,3085)F,Q1 ,Q1+2,V8,F9,N[1 ,10] 

Q=FNS30 
RETURN  0 
R=418 
Q = F N J 3 
F5=0 

DISP  "REWORK  #"; 

N[1 , 10] =FNNN[ 1 ,10] 

D4=VAL( P $ [ 7 ,8] ) 

F6=N0=1 

IF  F#0  THEN  3140 

F=7 .5 

Q=FMJ2 

Q=FNJ4+FNJ5+FNL7+FNL8+FNL1+FNL2+FNL3+FNL6+FNL7.2+FNL8.2+FNL1.2+FNL2.2 

IF  F5  THEN  3148 

Q=FNJ7 

GOTO  1395 

Q=FNF7+FNV12 

GOTO  1395 

R=419 

R=420 

A4=A4+1 

WAIT  1000 

Q=FNS6 

IF  Z5= 56  OR  Z5=58  THEN  1395 
IF  Z5#59  OR  A4=4  THEN  3215 
F4=F4-1 
GOTO  1645 
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D - REWORK  computer  listing  (con't) 


3215  IF  Z5#61  THEN  1645 

3216  Q=FNV12 

3217  IF  F6=0  THEN  1395 

3218  IF  F5=0  THEN  3135 

3219  SERROR  Z5 ,3221 

3220  GOTO  3135 

3221  Q=FNV6 

3222  GOTO  1600 

3225  R=421 

3226  0$="" 

3228  IF  F6  THEN  3240 
3240  Q=FNS6+FNH1+FNC1+FNJ6 
3244  RETURN  0 
3255  R=422 

3285  FORMAT  /,"  RUN/SET  STAR  ELEV  G/T  G/TA  ant  HPBW" 

3290  WRITE  (15,3285)"  FREQ  Y-fac  NEF  NUF" 

3295  FORMAT  F7 .2 ,F7 .1 ,2F8.3 ,3F8.3 ,2F9 .2 
3300  1=0 

3305  1=1+1 

3310  Q=M[1 ,1] 

3315  IF  Q-INTQ=0  OR  1=40  THEN  3375 
3325  QO=M[ I ,6] 

3330  Q1=M[ 1,7] 

3335  Q2=M[I ,8] 

3340  J=M[I ,9] 

3345  E=ABSQ 

3350  TRANSFER  T[100*E-10*INT( 10*E) ,1]  TO  S$ 

3355  WRITE  ( 15 ,3295)M[ 1 ,10] ,"  " ,S$,Q ,M[1 ,2] ,M[ 1 ,3] ,M[ 1 ,4] ,Q0,Q1 ,Q2 ,J 

3360  IF  I NT ( I/3)-I/3  THEN  3370 
3365  PRINT 
3370  GOTO  3305 

3375  Q=FNS30 

3376  RETURN  0 

3380  R=423 

3384  A[3]=10*B5 

3386  A[4]=10*B6 

3405  REDIM  M[M[40,1] ,10] 

3410  SORT  M,C,1 

3415  Q=FNS3+FNH1+FNC1+FNS4 

3420  REDIM  M[40,10] 

3425  IF  M[40 , 1 ] <3  THEN  3585 

3430  FOR  J = 19  TO  26 

3435  IF  J=22  OR  J=23  THEN  3550 

3440  I=N9=0 

3445  1=1+1 

3450  IF  M[I , 1 ] <0  THEN  3445 
3455  N[J ,9]=N[J , 10 ] =M[ I , J - 1 7 ] 
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D - REWORK  computer  listing  (con't) 


FOR  1=1  TO  M[ 40 , 1 ] 

X1=M[ 1,1] 

IF  XI  <=  0 THEN  3510 
X2= 1 /S I NX 1 
P=M[ I , J-17] 

Q=FNGN9 

IF  P> N[ J ,9]  THEN  3500 
N[J ,9]=P 

IF  P<N[J ,10]  THEN  3510 
N[J , 10]=P 
NEXT  I 
Q=FNV4 

IF  J > 1 9 THEN  3540 

PRINT  TAB35,"#  PTS  =";N9 

N[1 ,9]=N9 

N[ 19 , 11]=M2/N9 

N[20 ,11]=M1/N9 

N[ 2 1 , 11 ]=G[2 ,2] 

N[ 22 ,11]=G[1 ,1] 

PRINT 
Q=FNV5 
Q=FNS3 
NEXT  J 
Q=FNS15 
RETURN  0 
DEF  FNL(QO) 

R=424 

X5=0 

D$="" 

J=INTQ0 
L0=10*(Q0-J ) 

J=J+18 

IF  N[J ,9]#0  THEN  3610 
PRINT  "DATA  NOT  FIT  YET!!" 

RETURN  0 

IF  LO  THEN  4260 

F2=FNV3+FNU11 

I 5=Q-R1 

15=15/50 

L=30 

Q=FNS3+FNH1+FNC1+FNK N0+FNM1+FNI3 
PRINT  ".  = FIT", 

D$="#@0+*MX" 

FOR  1 = 1 TO  N1 
TRANSFER  T[I,1]  TO  S$ 

PRINT  D$ [1,1];"  = 

NEXT  I 
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D - REWORK  computer  listing  (con't) 


Q=FNS3+FNH0+FNF2 

PRINT 

FORMAT  3X,6F10.3,"  (UNIT=" ,F7 .4 , " ) " 

WRITE  (15,3745)R1,R1+10*I5,R1+20*I5,R1+30*I5,R1+40*I5,R1+50*I5,I5 
Q=FNF8 

PRINT  " ELEV  ";A$; 

FORMAT  4X,  "VALUE  RUN/SET" 

WRITE  (15,3795) 

FORMAT  F5.1 
I=N3=0 
R=425 
1 = 1+1 

IF  I>M[40 ,1]  THEN  4170 
L1=M[I ,1] 

T2=M[ 1 ,10] 

IF  LI <0  THEN  3820 
N3=N3+1 

IF  N3/30- I NT( N3/30 ) THEN  3860 
Q=FNF8 

PRINT  TAB10 ,A$ 

IF  N3>1  THEN  3885 
L=  I NT  ( LI ) 

IF  I NT ( L/5)-L/5=0  THEN  3885 
L=L+1 
GOTO  3870 
J 1 =M[ I , J -17 ] 

IF  LI  >=  L THEN  3990 
Q= I NT ( ( Jl-Rl )/I5+0.5)  + l 
X=10*( 10* LI -I  NT ( 10*  LI ) ) 

B$=  D$[  X , X ] 

W1=N[J ,2-F2]+N[J ,6-F2]*( (F2=0)/SINL1+(F2=1 )*L1 ) 

X=INT( (Wl-Rl )/I 5+0 . 5 ) +1 
WRITE  (15,3805) LI ; 

A$=" 11 

A$ [1 ,52]=" " 

IF  X>52  OR  X<1  THEN  3955 
A$[X  ,X]  = " . " 

A$[Q,Q]=B$ 

FORMAT  F9.4,F8.2 
X 5=X  5+1 

WRITE  (15,3975)"  ",A$,J1,T2 

GOTO  3820 

E=FNU10 

Tl  = N[ J ,2-F2]+N[J ,6-F2]*Q3 

IF  J =21  OR  J =22  OR  J=24  THEN  4010 

E=FNKNO+FNVl+( C2=l )*10*LGT ( l+E/100 )+( C2#l )*E*T 1/100 

E=FNVl+( C2=l )*10*LGT( l+E/100)+( C2#l )*E*T1/100 
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D - REWORK  computer  listing  (con't) 


Q= I NT (E/15+0.5) 

IF  Q>1  THEN  4045 

Q=1 

X=I NT( ( Tl-Rl )/I 5+0.5 )+2 
PRINT  L; 

FORMAT  " ",51"-" 

OUTPUT  ( A$ ,4060) "" , 

IF  X— Q< 1 THEN  4085 
A$[l ,X-Q]=" " 

A$[X-Q ,X-Q]  = " ! " 

A$[X ,X]  = " . " 

IF  X+Q>51  THEN  4150 
A$[X+Q  ,52]  = "" 

A$[X+Q ,X+Q]  = " ! " 

FORMAT  F10.4, ,F8.4 
A$=A$[1 ,52] 

X5=X5+1 

WRITE  (15,4150)"  ";A$;T1,E 

L=L+5 

GOTO  3885 

Q=FNF8 

PRINT  TAB10 ,A$ 

D$=" " 

Q=FNS( ( X5>39)*36)+FNS(39-X5) 

RETURN  0 

R=426 

REDIM  Y [ 3 ] 

1=0 
1 = 1 + 1 

IF  M[ I ,1]<0  THEN  4197 

Y[1]=10*INT(M[I,1]/10)+10 

Y[ 1 ]=Y[l]-5*( Y[1 ]-M[ I , 1]>5) 

Y[2]=10*INT(M[M[40,1],1]/10) 

Y[2]=Y[2]+5*(M[M[40,1],1]-Y[2]>5) 

Y[3]=10-5*(Y[2]-Y[1]<36) 

N0=10*( 10*M[ 1 , 1 ] - 1 NT ( 10*M[ 1,1])) 
RETURN  0 
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D - REWORK  computer  listing  (con't) 


R=427 

Q=FNU11+FNS1+FNH1+FNC0+FNKN0+FNM1+FNI3+FNS1+FNH0+FNF2+FNS1 
PRINT  TAB24, "+  = LINEAR  CONTRIBUTION" 

Q=FNS2 

FOR  L=  Y [ 1 ] TO  Y[2]  STEP  Y[3] 

TRANSFER  T[INT((J+2)/2),l+20*(J/2-INT(J/2))]  TO  B$ 

B$  [ 10  ] = " = " 

FORMAT  F5.1,"deg:" ,13X,F9.3,"  +-",F5.2,"  dB  (",F6.1,"  %) " ,4X ,F6.3 , " GHZ" 
Q=FNV1 

WRITE  (15,4300) L, B$ ,T1 , 10*LGT ( l+E/100 ) ,E  ,F 
Q=FNS1 

FORMAT  " E-S  E-F  E-Y  E-Kl  E-K2  E-K3  E-K4  E-K5  E-K6  " 

WRITE  ( 15,4345) "E-K7  +E-K8  +E-K9  E-TA" 

FORMAT  F5 .1 , "%" ,12F6 .1 , 

Q=C2 

Q0=Q*E9 

Q1=Q*B1 

WRITE  (15,4355)Q*S,Q*E0,Q*Y1,Q*E1,Q*E2,Q*E3,Q*E4,Q*E5,Q*E6,Q*E7,Q*E8,Q0,Q1 
R=428 

IF  L0#2  THEN  4405 

Q=FNS1+FNI4+FNF6+FNF10+FNF5+FNF9++FNI4 

Q=FNS3 

NEXT  L 

Ql=(INT((Y[2]-Y[l])/Y[3]+l)-2)/3 
Q=FNS( 23*( 3-3*( Q1-INTQ1 ))*(Q1-INTQ1#0)) 

REDIM  Y[2] 

RETURN  0 
R=429 

Ql  = ( J=19 ) + ( J=20)  + ( J=25 ) + ( J=26)+10*( J=24 )+100*( ( J=21 ) + ( J=22) ) 

R1=INT(Q1*N[J ,9])/Ql 

Q=INT(Q1*N[J,10]+1)/Q1 

IF  (Q-Rl  )>1  OR  J>20  THEN  4475 

IF  ( N[J ,9]-Rl )>( Q-NCJ ,10] ) THEN  4470 

R1=R1-1 

GOTO  4475 

Q=Q+1 

RETURN  0 

R=430 

Q=FNG( -9) 

R2=V6-M3^2/N9 
N[J ,5]=Y[2]/G[2 ,2] 

N[J , 1 ] = ( M3- N[ J ,5]*M2)/N9 
S=SQR( (R2-N[J ,5]*Y[2] )/( N9-2) ) 

N[J ,3]=S 

N[J ,7]=S/SQRG[2 ,2] 

N[J ,6]=Y[1]/G[1 ,1] 

N[J ,2]=(M3-N[J ,6]*M1 )/N9 
S3=SQR( ( R2- N[ J ,6]*Y[1] )/( N9-2 ) ) 

N[ J ,4]=S3 

N[J ,8]=S3/SQRG[1 ,1] 

RETURN  0 
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D - REWORK  computer  listing  (con't) 


R=431 

FOR  F2=0  TO  1 
Q=FNF2 
NEXT  F2 
RETURN  0 
R=432 

H1=FNU10+FNKN0 

IF  J = 1 9 OR  J=20  THEN  4580 

H1=10*LGT( 1+H1/N[J ,2-F2] ) 

Q=(F2=0)/SINL+(F2=1)*L 
M=N[19,2-F2]+N[19 ,6-F2]*Q 
T1=N[J ,2-F2]+N[J ,6-F2]*Q 

C2=l+( ( J=25)+( J=26 ) )*( l/( l-( B4+3)/B9*l .4/T1 )-l ) 

M=10~ (M/10) 

G=10* ( ( N[20 ,2-F2]  + N[20 ,6-F2]*Q)/10)*FNV9 
T=G/M 

Q=FNV13+FNEN0 
Y1=C8*Y5 
S=T[ NO , 10]/10 
B1  = D3 

E=C2*SQR(S~2+Yl~2+E0~2+El~2+E2~2+E3~2+E4~2+E5~2+E6~2+E7/'2+Bl~2)+E8+E9 
RETURN  0 
R=433 
A$="  " 

B$="  " 

FORMAT  6X ,F9 .4 , " +-",F8.4,")  + (",F9.5,"  +-",2F8.5 
TRANSFER  T[INT( ( J+2)/2) ,l+20*( J/2-INT( J/2) )]  TO  A$[ 1 ,15] 

TRANSFER  T[14,16-F2*5]  TO  B$[l,8] 

WRITE  ( 15 ,4830) A$ ,N[J ,2-F2] ,N[J ,4-F2] ,N[J ,6-F2] ,N[J ,8-F2] ,B$ 

RETURN  0 
R=435 

DISP  "DEL :RUN/SET ( 0=EXIT) " ; 

Q=FNB2 
INPUT  Q 

IF  Q=0  THEN  1395 
SEARCH  M, C, 10 ,Q ,Q1 
M[Q1 ,1]=-M[Q1 ,1] 

GOTO  4864 
R=436 

Cl=2 .997925E+08"2/( 8*PI*1 .38054E-23*( F*10"9) "2) 

D0=0.9/F"2 
G=B2*( D*F/0.313)"2 
B9=2*C1*1.38054E-23*G 
B0=3035/D/F*SQR( B3/B2) 
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D - REWORK  computer  listing  (con't) 


FOR  1=1  TO  N1 
Q=C-T[I , 15] / 10 

Q3=T[ I ,6]/lE+03+T[ I ,4]*Q/lE+05 

Q2=EXP( -T[ I , 16]/1E+04*Q)*S[ I ,1]*(F/T[I,18]*100)~Q3 

1 5=S[ 1 ,1]+T[1 ,8]/1000*S[I ,1] 

Q4=( I#5)*( I#6)*T[I ,5]/lE+05 

A=Q3+(((F/T[ I, 18]*100)  >=  1) - ( F/T[ I , 18]*100<1 ) )*(T[ I ,7] /1000+Q4) 
N3=F+((A>0)-(A<0))*F0/100 

Q=EXP ( -T[ 1 , 16]/1E+04*Q)*I5*( N3/T[ I ,18] *100 ) "A 

T[I ,10]=(Q-Q2)/Q2*1000 

SCI ,4]=Q2 

NEXT  I 

RETURN  0 

R=437 

F7=l 

DISP  "SUM  TAPE 
V8=FNNV8 
RETURN  0 
R=438 

DISP  "RESULT  SET# :l=lST,2=2nd" ; 

F9=FNNF9 
RETURN  0 
R=439 

Q=FNF1+FNF7+FNV11 
GOTO  1395 
R=440 

Q=+10-5*F7 
Ql=4*F9-3+17*F7 
LOAD  DATA  #Q,Q1,M 
LOAD  DATA  #Q,Q1+2,N 
F=N[6 , 11] 

IF  F#0  THEN  5043 

F=7 .3 

Q=FNJ2 

FOR  1=1  TO  10 
T[9 , I]=N[17 , I] 

T[9,I+10]=N[18,I] 

NEXT  I 

TRANSFER  T[9 ,1]  TO  P$ 

RETURN  0 
R=441 

DISP  "TEMP(F)" ; 

B5=FNB2+FNN(A[3]/10) 

A[3]=10*B5 
DISP  "DEW  PT ( F ) " ; 

B6=FNN(A[4]/10) 

A[4]=B6*10 
RETURN  0 
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D - REWORK  computer  listing  (con't) 


R=442 

MAT  M=ZER[40,10] 

LOAD  DATA  #( 10-5*F7) ,9+F7*33 
Q=FNC1+FNS3 

PRINT  "FL#  RUN/SET" , 11  ELEV","  HPBW#1\"  FREQ",  "STAR" 

EDIM  Y [ 2 ] 

F4=0 

F 6=F5=1 

RETURN  0 

R=443 

F4=F4+1 

N8=M[40,1]+1 

IF  N8<40  THEN  5190 

N8=39 

Q=F4+8+F7*33 

LOAD  DATA  #(10-5*F7),Q 

IF  A[2]/1000#F  OR  D[l,2]=0  OR  D[l,73]=0  THEN  5175 
PRINT  Q; 

D4=VAL( P$[7 ,8] ) 

Q=FNV10 

M[40,1]=M[40,1]+1 

PRINT  M[N8,10] ,M[N8,1] ,M[N8,4] ,M[N8,6] ,S$ 

IF  I NT ( N8/3 ) -N8/3  THEN  5225 

PRINT 

GOTO  5175 

REM:  EXIT  ON  SERROR 
R=444 

Z=FNDD[6 ,73]+FNV10 
Q5=D[3 ,69]/100 

Q=FNS2+FNH1+FNC1+FNK N0+FNM3+FNS1+FNI5 

FORMAT  "SET  =",F4.0,"  PTS , " ,F3 .0 ,"  inter,  STD  DEV  RSDL  =",F9.6 
WRITE  ( 15, 5333 )D[1, 73]/100, D[l, 69], FNDD[1, 71]/100, 

FORMAT  ",  max  PTS(sigma)=" ,F6.2,"," ,F6.2,/ 

WRITE  ( 15 ,5335 )FNDD[3 ,71] , F NDD[ 5,71] 

FORMAT  "REWORK  FILE  TAPE  TIME(Hrs)  EFF  AREA  SKY  BRIGHT 
WRITE  ( 15 ,5338) "ELEV ( deg)  RUN  SET" 

FORMAT  F5.1,F6.0,F7.1,F10.3,F10.1,"  mA2",F9.2,"  K"  ,F11 .1 ,F8.0,F6.0 
WRITE  (15, 5345 )N[1, 10], N2,V8,D[4, 41/1000, B9,B4,M[N8,1],N6,N7 
Q=FNS2 

B=FNDD[E7 ,73] 

V6=FNDD[5 ,73] 

FORMAT  5X , "*HPBW( deg)  HPBW( deg) " ,7X , "T/Ta  DT( " 

WRITE  (15,5365)S$;")/Ta  DECL  OF  ";S$ 

FORMAT  F7.3,"  +-" ,F6.3,F10.3,F9.4,F7.4,F9.4,"  +-" ,F7 .4 ,F11 .3 , "deg" 
Q=FNDD[5 ,72]/100 

WRITE  ( 15, 5375) B,FNDD[E7, 721/100 ,M[N8, 4], Z,"  +-";FNDD[6,72]/100,V6,Q,Q5 

Y=( V6+Z)/Z 

X1=FNZN0 
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D - REWORK  computer  listing  (con't) 


5400  M=(Y-1 ) /XI 

5450  M[N8,2]=10*LGTM 

5452  M[N8,3]=10*LGT(V6/X1 ) 

5460  Q=K*S[N0,4]/( Y-l )/1000 

5463  M [ M8 , 7 ] = Y 

5465  M[N8,8]=Q-2*( B4+3)/B9*l .38054 

5470  M[N8,9]=Q/Kl-3/B9*l. 38054 
5485  Q=FNS2 

5490  FORMAT  " version#  Y-FACTOR  *HPBW#1  *HPBW#2" 

5495  WRITE  (15,5490)"  *HPBWiso  G/T(dB)  NEF  NUF" 

5498  Q3=FNDD[3 ,73] 

5500  Q4=FNDD[4 ,73] 

5502  Q=FMDD[2 ,73] 

5505  FORMAT  F7.2,F13.4,3F9.3,F9.2,2F9.3,"kFU" 

5510  WRITE  ( 15 ,5505) D[1 ,72]/100, Y ,Q3 ,Q4 ,Q,M[N8,2] ,M[ N8 ,8] , "kFU" ,M[N8,9] 

5515  Q=FNS1+FNI5+FNS3 
5572  RETURN  0 
5574  R=445 

5580  FORMAT  5X,"ant  HPBW  =",F8.5,"  +",F9.6,"  CSC  L =",F7.4,n  (L  =",2F5.1 
5585  WRITE  ( 15 ,5580) N[21 ,2] ,N[21 ,6] , B0/60 , L,"  deg)" 

5590  Q=FNS1+FNF3 
5595  RETURN  0 
5600  R=446 

5605  FORMAT  " SITE  ELEV  oxy  attn  water  attn  zenith  attn" 

5610  WRITE  (15,5605)"  REFR  #1  REFR  #2  ant-DIAM" 

5615  FORMAT  F7.3,"  km",F10.5,"  dB",F8.4,"  dB/dens" ,F8.4,"  dB",F9.3,F10.4,2F8.1 
5620  WRITE  ( 1 5 , 56 1 5 ) CO , G4* L4 , G5* L5+G6* L6 , Z1 , L8 , L9 , D , " ft" 

5622  RETURN  0 
5624  R=447 

5626  FORMAT  " G(dB)  G-hpbw  T(K)  Ta(K)  Y-fac  HPBWerr" 

5628  WRITE  (15,5626)"  data  fit  c(l-K2)  bright  effAREA" 

5630  FORMAT  F6 .2 ,F7 .2 ,F7 .1 ,F8.1  ,F8.4 ,F7 .2 , " %",F7.3,"  dB" ,F7 .2 , ,F6 .2 ,F8.1 

5631  WRITE  ( 15 ,5630) 10*LGTG,C7 ,T,H9,Y , D2 ,H1 ,P1 , B4 ,"  K",B9 

5632  RETURN  0 

5633  R=448 

5634  FORMAT  /,F5.2 , "=A2"  ,F6 .2 , " = C9" ,F5 .1 , " = D1 " ,F9.5 , " = N( 21 ,1 ) " ,F5.0,F8.4 ,2F3.0 
5636  WRITE  ( 15 ,5634)A2 ,C9 , D1 ,N[21 ,1] ,T[1 ,9]"=T( 1 , 9)"  ,J1"=J1" ,NO"  = NO" 

5638  FORMAT  F5 .2 , "=D8" ,F6 .2 , " = D9" ,F5.1 , "=C8" ,F9.5 ,F5.0 ,F8.4 , "=C2" ,/ 

5640  WRITE  ( 15 ,5638) D8, D9 ,C8, N[21 ,3]"=N( 21 ,3) " ,T[1 ,11] "=T( 1 , 11 ) " ,C2 

5641  RETURN  0 

5642  R=449 

5644  H9=B3/( N[21,2]+N[21,6]*l .15 ) "2*26117/10" ( ( N[20 ,2]+N[20 ,6]*1 .15)/10) 

5646  RETURN  H9 
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D - REWORK  computer  listing  (con't) 


R=450 

B0=FNQL 

B2=B3/( B0*D*F/3035)~2 

C7=10*LGT ( B3*26117/( N[21,2]+N[21,6]/SINL)"2) 

B9=2*C1*1.38054E-23*G 

RETURN  0 

R=451 

L=D[4, 21/100 

M[N8,1]=INT( 10*L+0.5)/10+N0/100 
E 7=2* ( N0<5)+3*( N0=6)+4*( N0=5) 
M[N8,4l=B=FNA(FNDD[E7,73l) 

M[ N8 ,6]=F 
M[N8,10l=A[l 1/100 
RETURN  0 
R=452 
A$=" " 

FORMAT  10"  i " , " ! 11 

OUTPUT  ( A$  ,5700) "" , 

RETURN  0 
R=453 

DISP  "*HPBW  0 90  (deg)"; 

N[21 ,2l=FNNN[21 ,2] 

DISP  "CSC  COEFF"; 

N[21 ,6l=FNNN[21 ,6] 

RETURN  0 
R=454 

DISP  "LOAD  from  INT=0,EXT=1"; 

F7=FNNF7 
RETURN  0 
R=455 

DISP  "LOAD  FILES:START#, STOP#, STEP"; 

INPUT  U,U1,V 

RETURN  0 

R=456 

N=0 

N=N+1 

DISP  "day(0=EXIT)M; 

Q6=2*N-1 

Q=N[Q6 ,1]=FNB3+FNNN[Q6 ,1] 

IF  Q THEN  6180 
RETURN  0 
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D - REWORK  computer  listing  (con't) 


6010  PRINT  TAB15,"via  AFGL  (617)468-3701" 

6030  Q=FNS2+FNB5 

6040  DISP  "SUN  FLUX ,8.8GHZ ,S.U. " ; 

6050  N[Q6 ,7]=FNNN[Q6 ,7] 

6060  DISP  "@  4.995  GHZ"; 

6070  N[Q6 ,6]=FNNN[Q6 ,6] 

6080  DISP  "U.T.0  SUN  MEAS"; 

6090  N[Q6,5]=FNRN[Q6,5] 

6100  DISP  "via  AENA  SUN  EPHEMERIS  chap"; 

6110  Q=FNB5+FNS2 

6120  DISP  "day" ; N[Q6 , 1] ; " DECL" ; 

6130  N[Q6 ,2]=FNRN[Q6 ,2] 

6140  DISP  "TRUE  DIST  fm  EARTH"; 

6150  N[Q6 ,3]=FNNN[Q6 ,3] 

6180  DISP  "MOON: via  AENA, GEOCENTRIC  DISTANCE  chapter"; 

6190  Q=FNB5+FNS2 

6210  DISP  "day";NCQ6,l]+0.5;" :A0="; 

6220  N[2*N,2]=FNNN[2*N,2] 

6230  DISP  "Al=" ; 

6240  N[2*N,3]=FNNN[2*N,3] 

6250  DISP  "A2=" ; 

6260  N[2*N,4]=FNNN[2*N,4] 

6262  DISP  "MOON:  via  AENA,  EPHEMERIS  FOR  PHYSICAL  OBSERVATIONS"; 
6264  Q=FNS2 

6266  DISP  "MOON: AGE (days)"; 

6268  N[2*N,5]=FNNN[2*N,5] 

6270  GOTO  5980 
6300  R=457 

6305  GOTO  6390 
6310  REDIM  N[ 1 2 ,11] 

6330  SEARCH  N,C,1,D4,Q1 
6340  REDIM  N[26,ll] 

6345  IF  Q1=0  THEN  6360 

6350  RETURN  0.534*( 1 .574-0. 1627*L0GF)/N[Q1 ,3] 

6360  DISP  "NO  SUN  DATA  for  day";D4; 

6370  Q=FNB5 

6380  STOP 

6390  RETURN  0 

6400  R=458 

6410  REDIM  N[ 12 ,11] 

6430  SEARCH  N,C,1,D4,Q1 
6450  REDIM  N[26,ll] 

6455  IF  Q1=0  THEN  6490 
6460  Q2=D[4,4]/2 . 4E+04 

6462  A0=N[Q1+1 ,2] 

6464  A1  = N[Q1+1 ,3] 

6466  A3=N[Q1+1 ,4] 

6470  Q3=A0+Al*(Q2-0.5)/5E+05+A3*(Q2-0.5) "2/5E+05 

6480  RETURN  0.51817/(Q3/60. 268-0. 0166*SIN( INT( D[ 4 , 2 ] / 1 0+0 . 5 ) / 10 ) ) 

6490  DISP  "NO  MOON  DATA  for  day";D4; 

6500  Q=FNB5 
6510  STOP 
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D - REWORK  computer  listing  (con't) 


R-459 

REDIM  N[ 12 , 11 ] 

SEARCH  N,C,1 , D4,Q1 
IF  Q1 =0  THEN  6360 
R5=N[Q1 ,3] 

D5=N[Q1 ,5] 

C3=N[Q1 ,6] 

C4=N[Q1 ,7] 

H7=N[Q1 ,2] 

SEARCH  N,C,1,D4+1,Q1 
IF  Q1 =0  THEN  6360 
D6=N[Q1 ,5] 

C5=N[Q1 ,6] 

C6=N[Q1 ,7] 

REDIM  N[ 26 ,113 

H5=( D[4,4]/1000-D5)/( D6+24-D5) 

Sl  = ( (l-H5)*C3+H5*C5)/10M-0. 0055/SI N(47.37+H7) )/R5~2 
S2=( ( 1-H5)*C4+H5*C6)/10A ( -0.007/SI N(47 .37+H7 ) )/R5A2 
S5=0.5*( 1-1 .7658*L0G(F*F/43.95) ) 

S[5,4]  = 1.01*SrS5*S2~(l-S5)*lE+04 
RETURN  S[5 ,4] 

R=460 

REDIM  N[12,ll] 

SEARCH  N, C, 1 , D4  ,Q1 
IF  Q 1 =0  THEN  6490 
H6=N[Q1+1 ,5]+D[4,4]/2.4E+04 
S6=207 - 7+24 .43/F 

T9=S6*( 1-(0.004212*FA1.224)*C0S( 12.19*H6-43.83/( 1+0.0109*F) ) ) 

D7=FNU4 

S[6 ,4]=7 .252*F*F*T9*D7A2 
RETURN  S[6 ,4] 

R=461 
RETURN  0 
R=462 

FORMAT  10X , "MOON  FLUX  ( " ,F6 .0 , "MHz , day " ,F3 .0 , " , " ,F5 .1 , "hrs ) =",F7.0 
WRITE  ( 15, 7110)F*1000, D4,D[4, 41/1000, S[6, 4] 

PRINT 

FORMAT  "lunar  age  elev  AO  A1  A2  moon  diam" 

WRITE  (15,7140)"  mean  temp  temp" 

FORMAT  F6.2 , "days" ,F6.1,F10.4,F10.0,F9.0,F9.3,"  deg" ,F8.1 ,"  k",F8.1, 

WRITE  ( 15 ,7160)H6 , L,AO ,A1 ,A3 , D7 ,S6 ,T9 

PRINT 

RETURN  0 

R=463 

FORMAT  10X,"Xi (K)  = " ,E11 .3 ,5X , "FLUX  =",F8.1,"  F.U.  :",F3.0 
WRITE  ( 15,7210)FNZ( NO) ,S[N0,4],S$ 

PRINT 
RETURN  0 


" FU" 


K" 
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D - REWORK  computer  listing  (con't) 


R=464 

Q3=(F2=0)/SINL+(F2=1 )*L 
Q=N[ 1,9] 

Q2=31.8-(Q>3)*24.7-(Q>4)*2.5-(Q>5)*1.1-(Q>7)*0.3-(Q>9)*0.3-(Q>11)*0.2 
RETURN  Q2*(N[J,4-F2]*SQR(1/N[1,9]+(Q3-N[20-F2,11])A2/N[22-F2,11])) 
GOTO  9990 
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8.16  CROSS  REFERENCE  for  D - REWORK 
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CROSS  REFERENCE  forD  - REWORK  (con't) 


SYMBOL  REFERENCE  LINE 
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3585 

3425 

3610 

3595 

3820 

3840 

3982 

3860 

3850 

3870 

3880 

3885 

3860 

3870 

4165 

3955 

3947 

3990 

3890 

4010 

4000 

4045 

4015 

4085 

4070 

4150 

4090 

4170 

3825 

4197 

4198 

4260 

3610 

4405 

4370 

4470 

4455 

4475 

4450 

4465 

4580 

4576 

4864 

4890 

5043 

5041 

5175 

5200 

5225 

5190 

5187 

5225 

5210 

5900 

1382 

5980 

6270 

6180 

6004 

6360 

6345 

6730 

6780 

6390 

6305 

6490 

6455 

6930 

9990  9000 
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CROSS  REFERENCE  forD  - REWORK  (con't) 


SYMBOL 


REFERENCE  LINE 


A 

A$ 

4950 

340 

3790 

4152 

5695 

4955 

345 

3855 

4155 

5705 

4960 

350 

3940 

4172 

355 

3980 

4820 

365 

4065 

4845 

A$[ 

345 

350 

355 

3945 

3950 

3955 

4075 

4080 

4085 

4095 

4100 

4152 

4835 

AO 

6462 

6470 

7170 

A1 

6464 

6470 

7170 

A2 

830 

5636 

A3 

6466 

6470 

7170 

A4 

1697 

3196 

3212 

AC 

385 

395 

890 

895 

900 

1685 

1690 

1705 

1740 

1741 

3384 

3386 

5085 

5090 

5100 

5105 

5200 

5685 

B 

5360 

5380 

5670 

BS 

315 

320 

325 

3905 

3955 

4285 

4335 

4825 

4845 

B$[ 

4290 

4840 

BO 

465 

480 

485 

750 

765 

770 

786 

800 

4920 

5585 

5650 

5653 

B1 

4358 

4645 

4650 

B2 

1040 

4910 

4920 

5653 

B3 

1040 

4920 

5644 

5653 

5655 

B4 

460 

4602 

5350 

5465 

5631 

B5 

55 

3384 

5085 

5090 

B6 

60 

3386 

5100 

5105 

B9 

4602 

4915 

5350 

5465 

5470 

5631 

5657 

BEEP 

285 

C 

1355 

1360 

3410 

4880 

4930 

6330 

6430 

6720 

6770 

6920 

CO 

400 

405 

420 

430 

445 

2160 

5620 
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CROSS  REFERENCE  for  D - REWORK  (con 't) 


SYMBOL 


REFERENCE  LINE 


Cl 

C2 

C2#l 

560 

4005 

5640 

4005 

4900 

4008 

4008 

4915 

4356 

5657 

4602 

4650 

C3 

6750 

6840 

C4 

6760 

6850 

C5 

6800 

6840 

C6 

6810 

6850 

C7 

5631 

5655 

C8 

4635 

5640 

C9 

830 

5636 

C[ 

1405 

D 

690 

2150 

4910 

4920 

5620 

5653 

D$ 

945 

3226 

3575 

3705 

4175 

D$[ 

3720 

3905 

DO 

4905 

D1 

790 

5636 

D2 

780 

782 

5631 

D3 

4645 

D4 

1743 

3132 

6330 

6360 

6430 

6490 

6720 

6770 

6920 

7120 

D5 

6740 

6830 

D6 

6790 

6830 

D7 

61 

6965 

6970 

7170 

D8 

835 

5640 

D9 

840 

5640 

DISP 

220 

224 

228 

310 

605 

1410 

1460 

1475 

1616 

2145 

2155 

2162 

2168 

3020 

3128 

4864 

5000 

5010 

5080 

5095 

5810 

5830 

5905 

5945 

5990 

6040 

6060 

6080 

6100 

6120 

6140 

6180 

6210 

6230 

6250 

6360 

6490 

283 


CROSS  REFERENCE  forD  - REWORK  (con't) 


SYMBOL 


REFERENCE  LINE 


DC 

1700 

5200 

5327 

5334 

5350 

5510 

5662 

6460 

6480 

6830 

6940 

7120 

E 

3345 

3350 

3990 

4005 

4008 

4010 

4155 

4335 

4650 

EO 

740 

4360 

4650 

El 

745 

4360 

4650 

Ell 

1035 

7210 

E2 

790 

4360 

4650 

E3 

795 

4360 

4650 

E4 

796 

800 

4360 

4650 

E5 

810 

4360 

4650 

E6 

812 

815 

4360 

4650 

E7 

830 

4360 

4650 

5360 

5380 

5668 

5670 

E8 

835 

4360 

4650 

E9 

840 

4357 

4650 

ENTER 

590 

F 

64 

390 

415 

430 

500 

525 

690 

788 

795 

1360 

1725 

1728 

2170 

3026 

3090 

3138 

4335 

4900 

4905 

4910 

4920 

4940 

4950 

4955 

5040 

5042 

5200 

5653 

5680 

6350 

6860 

6950 

6960 

6970 

7120 

3136 

5041 

FO 

4955 

F2 

1655 

3615 

3915 

3995 

4550 

4560 

4578 

4580 

4585 

4600 

4615 

4840 

4845 

7310 

7340 

F3 

61 

1710 

1720 

2170 

5333 

5634 

7110 

7210 

F4 

645 

1605 

1665 

1675 

3213 

5165 

5178 

5190 

5333 

F5 

62 

1615 

3125 

3142 

3218 

5170 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 

REFERENCE  LINE 

F6 

1400 

5170 

1615 

3135 

3217 

3228 

F7 

61 

1680 

3055 

3060 

4995 

5022 

5025 

5190 

5195 

5910 

F8 

1480 

1485 

F9 

62 

930 

3060 

3090 

5015 

5025 

FNA( 

69 

5670 

FNB( 

275 

FNB2 

3021 

4865 

5085 

FNB3 

1415 

6000 

FNB5 

6030 

6110 

6190 

6370 

6500 

FNC( 

565 

FNCO 

4268 

FNC1 

3240 

3415 

3695 

5150 

5332 

FND( 

205 

FNDD[ 

5322 

5334 

5336 

5360 

5362 

5379 

5380 

5498 

5500 

5502 

5670 

FNE( 

730 

FNENO 

4620 

FNF( 

1370 

FNF1 

1440 

5018 

FNFIO 

4380 

FNF2 

3730 

4268 

4555 

FNF3 

5590 

FNF4 

1746 

FNF5 

1746 

4380 

FNF6 

4380 

FNF7 

1470 

3023 

3148 

5018 

FNF8 

3775 

3852 

4170 

FNF9 

1746 

4380 

FNG( 

1250 

4485 

FNGN9 

3485 

FNH( 

910 

FNHO 

3730 

4268 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 


REFERENCE  LINE 


FNH1 

3240 

3415 

3695 

4268 

5332 

FNI  ( 

335 

FNI3 

3695 

4268 

FNI4 

4380 

FNI5 

3005 

5332 

5515 

FNJ  ( 

1387 

FNJ2 

65 

1730 

2175 

3139 

5043 

FNJ3 

3120 

FNJ4 

3140 

FNJ  5 

1530 

3140 

FNJ6 

3240 

FNJ7 

3144 

FNK( 

375 

560 

FNKNO 

3695 

4005 

4268 

4575 

5332 

FNL( 

3565 

FNL1 

3140 

FNL2 

3140 

FNL3 

3140 

FNL6 

3140 

FNL7 

3140 

FNL8 

3140 

FNM( 

865 

FNM1 

3695 

4268 

FNM3 

5332 

FNN( 

226 

230 

305 

5085 

5100 

FNNO 

1415 

1617 

FNN1 

1480 

2163 

3021 

FNNCO 

2160 

FNND 

2150 

FNNF 

2170 

FNNF7 

5910 

FNMF9 

5015 

FNNINT( 

222 
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CROSS  REFERENCE  forD  - REWORK  (con * t) 


SYMBOL 


REFERENCE  LINE 


FNNN[ 

FMNQ 

FNNV8 

1465 

6050 

6260 

1376 

5005 

3130 

6070 

5820 

6150 

5840 

6220 

6000 

6240 

FNO( 

1375 

FNQ( 

200 

FNQL 

465 

5650 

FNR( 

218 

FNRN[ 

6090 

6130 

FNS( 

705 

1530 

4180 

4414 

FNS1 

4268 

4340 

4380 

5332 

5515 

5590 

FNSIO 

3023 

FNS13 

1746 

FNS15 

3555 

FNS2 

1695 

4275 

5332 

5355 

5485 

6030 

6110 

6190 

FNS3 

3415 

3545 

3695 

' 3730 

4405 

5150 

5515 

FNS30 

3095 

3375 

FNS4 

3415 

FNS5 

3010 

FNS6 

1530 

3205 

3240 

FNSQ 

575 

870 

FNT( 

206 

226 

230 

FNU( 

1380 

1744 

1746 

FNUO 

1625 

FNU1 

1625 

FNUIO 

3990 

4575 

FNU11 

3615 

4268 

FNU2 

2165 

FNU3 

84 

485 

FNU4 

87 

480 

786 

6965 

FNV( 

1383 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 


REFERENCE  LINE 


FNV1 

FNVIO 

FNV11 

4005 

5205 

5018 

4008 

5322 

4315 

FNV12 

3023 

3148 

3216 

FNV13 

1746 

4620 

FNV2 

1470 

FNV3 

3615 

FNV4 

3515 

FNV5 

3540 

FNV6 

1590 

3221 

FNV7 

1505 

FNV8 

1515 

FNV9 

4615 

FNZ( 

560 

1040 

7220 

FNZNO 

820 

5395 

FORMAT 

52 

53 

360 

620 

645 

685 

875 

885 

935 

1026 

1035 

1355 

1360 

1620 

3075 

3085 

3285 

3295 

3745 

3795 

3805 

3975 

4060 

4150 

4300 

4345 

4355 

4830 

5140 

5333 

5335 

5338 

5345 

5365 

5375 

5490 

5505 

5580 

5605 

5615 

5626 

5630 

5634 

5638 

5700 

7110 

7140 

7160 

7210 

F[ 

1365 

1366 

1405 

G 

820 

1355 

4615 

4617 

4910 

4915 

5657 

G4 

400 

440 

5620 

G5 

420 

440 

5620 

G6 

430 

440 

5620 

G[ 

1340 

1345 

1350 

1405 

3532 

3534 

4495 

4515 

4520 

4540 

H 

1655 

H$ 

580 

1690 

HI 

810 

4575 

4578 

5631 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 


REFERENCE  LINE 


H5 

6830 

6840 

6850 

H6 

6940 

6960 

7170 

H7 

6765 

6840 

6850 

H9 

61 

3028 

5631 

5644 

5646 

I 

280 

290 

295 

710 

720 

3035 

3040 

3045 

3050 

3300 

3305 

3310 

3315 

3325 

3330 

3335 

3340 

3355 

3360 

3440 

3445 

3450 

3455 

3460 

3465 

3480 

3510 

3710 

3715 

3720 

3725 

3810 

3820 

3825 

3830 

3835 

3885 

4196 

4197 

4198 

4200 

4202 

4215 

4925 

4930 

4935 

4940 

4945 

4947 

4950 

4960 

4965 

4970 

4975 

5045 

5050 

5055 

5060 

15 

3660 

3690 

3750 

3895 

3930 

4010 

4045 

4945 

4960 

I NV  ( 

1355 

J 

3340 

3355 

3430 

3435 

3455 

3480 

3490 

3495 

3500 

3505 

3520 

3550 

3580 

3585 

3590 

3595 

3885 

3915 

3995 

4000 

4285 

4435 

4440 

4445 

4450 

4455 

4495 

4500 

4505 

4510 

4515 

4520 

4525 

4530 

4535 

4540 

4576 

4578 

4600 

4602 

4835 

4845 

7340 

J1 

525 

530 

3885 

3895 

3980 

5636 

K 

550 

560 

1040 

5460 

K1 

455 

460 

550 

745 

800 

1040 

5470 

K2 

490 

550 

790 

800 

1040 

K3 

495 

550 

1040 

K4 

505 

550 

K5 

505 

550 

K6 

505 

550 

1040 

K7 

505 

550 

K8 

530 

550 

800 

835 

1040 

K9 

545 

550 

800 

840 

1040 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 


REFERENCE  LINE 


L 

L$ 

LO 

200 

3865 

4160 

5585 

7310 

0 

3585 

455 

3870 

4280 

5655 

930 

3610 

525 

3875 

4335 

5662 

4370 

535 

3890 

4410 

5665 

3692 

4050 

4580 

7170 

LI 

1655 

3830 

3840 

3865 

3890 

3900 

3915 

3935 

L4 

410 

440 

5620 

LS 

425 

440 

5620 

L6 

435 

440 

5620 

L7 

385 

415 

430 

445 

900 

L8 

445 

535 

5620 

L9 

450 

535 

5620 

LGT( 

4005 

4008 

4335 

4578 

5452 

5655 

LGTG 

5631 

LGTM 

5450 

M 

52 

1620 

3410 

4585 

4610 

4617 

4880 

5140 

5400 

Ml 

1270 

1280 

1330 

1340 

1345 

1366 

3530 

4525 

M2 

1270 

1285 

1335 

1345 

1350 

1366 

3528 

4500 

M3 

1270 

1290 

1330 

1335 

1365 

1366 

4490 

4500 

4525 

M[ 

1405 

1530 

1670 

1747 

3000 

3310 

3325 

3330 

3335 

3340 

3355 

3405 

3420 

3425 

3450 

3455 

3460 

3465 

3480 

3825 

3830 

3835 

3885 

4198 

4200 

4202 

4205 

4207 

4215 

4885 

5185 

5207 

5208 

5350 

5380 

5450 

5452 

5463 

5465 

5470 

5510 

5665 

5670 

5680 

5685 

N 

53 

5970 

5980 

5995 

6220 

6240 

6260 

6330 

6430 

6720 

6770 

6920 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 


REFERENCE  LINE 


NO 

72 

375 

485 

490 

560 

730 

784 

790 

798 

800 

814 

815 

1040 

1742 

1744 

1746 

3135 

4215 

4640 

5460 

5636 

5665 

5668 

7220 

N1 

3710 

4925 

N2 

1675 

1676 

1685 

5350 

N3 

3810 

3845 

3850 

3860 

4955 

4960 

N4 

1655 

N5 

570 

650 

N6 

650 

1741 

5350 

N7 

1740 

5350 

N8 

1670 

1672 

2995 

5185 

5187 

5188 

5208 

5210 

5350 

5380 

5450 

5452 

5463 

5465 

5470 

5510 

5665 

5670 

5680 

5685 

N9 

1270 

1275 

1330 

1335 

1340 

1345 

1350 

1365 

1366 

3440 

3525 

3526 

3528 

3530 

4490 

4500 

4505 

4525 

4530 

N[ 

63 

200 

780 

920 

940 

1465 

3026 

3028 

3040 

3045 

3090 

3130 

3455 

3490 

3495 

3500 

3505 

3526 

3528 

3530 

3532 

3534 

3595 

3915 

3995 

4440 

4445 

4455 

4495 

4500 

4505 

4510 

4515 

4520 

4525 

4530 

4535 

4540 

4578 

4585 

4600 

4615 

4845 

5040 

5050 

5055 

5350 

5585 

5636 

5640 

5644 

5655 

5820 

5840 

6000 

6050 

6070 

6090 

6120 

6130 

6150 

6210 

6220 

6240 

6260 

6310 

6340 

6350 

6410 

6450 

6462 

6464 

6466 

6710 

6735 

6740 

6750 

6760 

6765 

6790 

6800 

6810 

6820 

6910 

6940 

7320 

7340 

OF 

72 

915 

1372 

1381 

1384 

1390 

1420 

P 

1290 

1310 

1315 

1320 

3480 

3490 

3495 

3500 

3505 

291 


CROSS  REFERENCE  for  D - REWORK  {con 1 1) 


SYMBOL 

REFERENCE 

LINE 

P$ 

P$[ 

1685 

665 

3030 

675 

5065 

1743 

3132 

PI 

PI 

782 

4900 

790 

5631 

Q 

65 

205 

206 

208 

212 

275 

280 

305 

310 

330 

335 

345 

390 

400 

405 

410 

415 

420 

480 

485 

500 

535 

540 

565 

575 

590 

625 

630 

675 

705 

710 

788 

790 

865 

870 

895 

900 

910 

915 

1250 

1260 

1265 

1370 

1372 

1375 

1376 

1380 

1381 

1387 

1390 

1415 

1420 

1440 

1470 

1505 

1515 

1530 

1590 

1617 

1618 

1625 

1695 

1710 

1720 

1730 

1744 

1746 

2163 

2164 

2165 

2175 

2995 

3000 

3005 

3010 

3021 

3022 

3023 

3055 

3095 

3120 

3139 

3140 

3144 

3148 

3205 

3216 

3221 

3240 

3310 

3315 

3345 

3355 

3375 

3415 

3485 

3515 

3540 

3545 

3555 

3660 

3695 

3730 

3775 

3852 

3895 

3955 

4010 

4015 

4020 

4070 

4075 

4080 

4090 

4095 

4100 

4170 

4180 

4268 

4275 

4315 

4340 

4356 

4357 

4358 

4360 

4380 

4405 

4414 

4445 

4450 

4455 

4470 

4485 

4555 

4580 

4585 

4600 

4615 

4620 

4865 

4870 

4875 

4880 

4930 

4935 

4940 

4960 

4965 

5018 

5022 

5043 

5150 

5190 

5202 

5205 

5332 

5355 

5379 

5380 

5460 

5465 

5470 

5485 

5502 

5510 

5515 

5590 

6000 

6004 

6030 

7320 

6110 

7330 

6190 

6370 

6500 

QO 

218 

222 

226 

230 

765 

770 

775 

1383 

1384 

3325 

3355 

4360 

3565 

3580 

3585 

4357 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 

REFERENCE 

: LINE 

Ql 

208 

210 

212 

590 

595 

610 

625 

770 

775 

786 

787 

788 

3060 

3090 

3330 

3355 

4358 

4360 

4412 

4414 

4435 

4440 

4445 

4880 

4885 

5025 

6330 

6345 

6350 

6430 

6455 

6462 

6464 

6466 

6720 

6730 

6735 

6740 

6750 

6760 

6765 

6770 

6780 

6790 

6800 

6810 

6920 

6930 

6940 

Q2 

210 

212 

395 

400 

405 

410 

420 

425 

430 

445 

460 

485 

490 

530 

545 

755 

775 

782 

787 

788 

3335 

3355 

4940 

4965 

4970 

6460 

6470 

7330 

7340 

Q3 

222 

226 

230 

232 

1705 

1710 

1725 

1728 

3995 

4935 

4940 

4950 

5498 

5510 

6470 

6480 

7310 

7340 

04 

69 

75 

78 

81 

84 

87 

226 

230 

232 

4947 

4950 

5500 

5510 

Q5 

230 

232 

5327 

5380 

Q6 

5995 

6000 

6050 

6070 

6090 

6120 

6130 

6150 

6210 

R 

1020 

1395 

1425 

1500 

1600 

1645 

1715 

2140 

2990 

3018 

3025 

3118 

3165 

3195 

3225 

3255 

3380 

3570 

3815 

4190 

4260 

4365 

4430 

4480 

4548 

4570 

4815 

4863 

4895 

4985 

5008 

5017 

5020 

5075 

5130 

5175 

5320 

5574 

5600 

5624 

5633 

5642 

5648 

5660 

5690 

5800 

5900 

5940 

5960 

6300 

6400 

6700 

6900 

7000 

7100 

7200 

7300 

R1 

3660 

3750 

3895 

3930 

4045 

4440 

4450 

4455 

4460 

R2 

1365 

4490 

4505 

4530 

R5 

62 

6735 

6840 

6850 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 


REFERENCE  LINE 


REDIM 

1405 

3405 

3420 

4195 

4420 

5160 

6310 

6340 

6410 

6450 

6710 

6820 

6910 

S 

540 

545 

4360 

4505 

4510 

4515 

4640 

4650 

S$ 

1690 

3350 

3355 

3715 

3720 

5208 

5370 

7220 

SI 

6840 

6870 

S2 

6850 

6870 

S3 

4530 

4535 

4540 

S5 

6860 

6870 

S6 

6950 

6960 

7170 

SEARCH 

4880 

6330 

6430 

6720 

6770 

6920 

SERROR 

1510 

1525 

1650 

3219 

SORT 

3410 

ST  AT  3 

585 

STORE 

3065 

3070 

S[ 

560 

800 

1040 

4940 

4945 

4970 

5460 

6870 

6890 

6970 

6980 

7120 

7220 

T 

820 

4617 

5631 

T1 

3995 

4005 

4008 

4045 

4155 

4335 

4600 

4602 

T2 

3835 

3980 

T6 

1655 

T9 

6960 

6970 

7170 

TRANSFER 

3030 

3350 

3715 

4285 

4835 

4840 

5065 

T[ 

58 

485 

815 

3030 

3040 

3045 

3350 

3715 

4285 

4640 

4835 

4840 

4930 

4935 

4940 

4945 

4947 

4950 

4960 

4965 

5050 

5055 

5065 

5636 

5640 

U 

1675 

5950 

U1 

1676 

5950 

V 

1675 

5950 

VI 

1270 

1295 

1340 

V2 

1270 

1300 

1350 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 


REFERENCE  LINE 


V 3 
V4 

V 5 

1270 

1270 

1270 

1305 

1310 

1315 

1345 

1330 

1335 

V6 

1270 

1320 

1365 

4490 

5362 

5380 

5390 

5452 

V8 

61 

930 

3090 

5005 

5350 

W 

500 

795 

W1 

3915 

3930 

WRITE 

365 

625 

650 

690 

880 

900 

940 

1030 

1040 

3080 

3090 

3290 

3355 

3750 

3800 

3935 

3980 

4155 

4335 

4350 

4360 

4845 

5334 

5336 

5340 

5350 

5370 

5380 

5495 

5510 

5585 

5610 

5620 

5628 

5631 

5636 

5640 

7120 

7150 

7170 

7220 

X 

645 

685 

875 

935 

1366 

3075 

3745 

3795 

3900 

3905 

3930 

3947 

3950 

4045 

4070 

4075 

4080 

4085 

4090 

4095 

4100 

4300 

4830 

5365 

5580 

7110 

7210 

x$ 

580 

XI 

1285 

1300 

1305 

1315 

3465 

3470 

3475 

5395 

5400 

5452 

X2 

1280 

1295 

1305 

1310 

3475 

X5 

3572 

3979 

4154 

4180 

Y 

820 

825 

1360 

5390 

5400 

5460 

5463 

5510 

5631 

Y1 

4360 

4635 

4650 

Y5 

825 

830 

4635 

Y[ 

1330 

1335 

1365 

1405 

4195 

4200 

4202 

4205 

4207 

4210 

4280 

4412 

4420 

4495 

4505 

4520 

4530 

5160 

Z 

5322 

5380 

5390 

Z1 

440 

455 

5620 

Z5 

1510 

1520 

1525 

1650 

3210 

3212 

3215 

3219 
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CROSS  REFERENCE  for  D - REWORK  (con't) 


SYMBOL 

REFERENCE 

LINE 

ZER 

ZER[ 

53 

52 

1620 

5140 

LINES:  894 

BYTES:  21516 

SYMBOLS: 

389 

REFERENCES:  2114 
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8.17  F - SPLIT  flow  chart 


RUM 

I 

10;  »==============  INITIALIZE 

190:  >TRAP»  FI  LES  : ( 1 ) LIST , ( 2 ) SP  LIT , ( 3 )MOVE 

I I I 

310:  470:  5000 


310:  »===  ========,:==  ( 1)  LIST 

320:  (690:  FNF1 ) DEVISE  LOAD  FROM? 

320*  (790:  FNF8)  LOAD  FI LES  :START#,  STEP? 


354: 

>-- 

NEXT  FILE 

356: 

IF  LAST  FILE 

362: 

(1010:  FNF3) 

LOAD  FILE 

365: 

(1075:  FNF14 ) 

PRINT  FILE  INTO 

>190  :TRAP 
>354  :NEXT 


470:  »=============  ( 2 ) SPLIT 

472:  (690:  FMF1)  DEVISE  LOAD  FROM? 

472:  (790:  FNF8)  LOAD  FILES :START#, STOP#, STEP? 


480: 

>--- 

NEXT  FILE 

482: 

IF  LAST  FILE 

490: 

(1010:  FNF3) 

LOAD  FILE 

490: 

(1075:  FNF14) 

PRINT  FILE  INFO 

495: 

GOTO  NEXT  FILE 

>510:  - 

I 

I 

>480:  | 


510: 

510: 

510 

510: 

510: 


(1330:  FMF7 ) 
( 772:  FNF6) 
(1312:  FNF9) 
(1530:  FNF5) 


STORE  SEQUENCE 
STORE  FREQ#? 

STORE  DEVICE? 

STORE: (STARTING  FILE#), STEP? 
SPLIT  & STORE  FILE 


< 


>510: 


5000:  »= 

5010: 

5010: 

5010: 

5010: 

5300: 

5050:  > 

5065: 

5080: 

5082: 


(690:  FNF1) 
(790:  FNF8) 
(772:  FNF6) 
(1312:  FNF9) 
(5300:  FNF13) 


(1010:  FNF3) 


(3)M0VE 

DEVICE  LOAD  FROM? 

LOAD  FILES  STAR#, STOP#, STEP? 

DEVICE  STORE  TO? 

STORE: (STARTING  FI LE#) ,STEPK? 

FREQ  to  be  M0VED(0=ALL) ? 

i 

NEXT  FILE  < 

IF  LAST  FILE  >190:TRAP  | 

LOAD  FILE  I 

STORE  FILE  >5050:NEXT: 
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10 

50 

70 

90 

100 

105 

110 

115 

116 

120 

125 

130 

150 

170 

175 

180 

190 

210 

230 

250 

270 

290 

310 

320 

325 

352 

354 

356 

360 

362 

365 

370 

375 

380 

382 

384 

385 

386 

394 


8.18  F - SPLIT  computer  listing 


COM  D$[25],H$[50],P$[40],S$[5],AI[10],DI[6,75],N0,X$[21],E$[8] 

REM  ( 1 ) LOAD  DATA, (1.1) STORE  DATA,(2)FNB( N)=COM  TO  MAT  B to  Nth  SET  OF  7 ROWS 
REM  ( 4 ) F NX ( N.M5)  = Nth  FILE, FREQ  M5  to  COM  (M5=0  DOES  ALL  FREQS) 

REM  7 ROWS  OF  MAT  B per  DATA  FILE 

REM  B( 1 ,74 )=N4 ,FNQ(Q)=  STORE  CONDITION 1=ST0RE) 

DEF  FNQ ( Q ) = ( (Q=0)  OR  (A[2]=Q) ) 

DIM  BI[147,75] ,B$[11] , R$[ 50 ] 

DISP  "PROG  EXT ( 5 ) , I NT ( 10 ) " ; 

INPUT  Q 

LOAD  KEY  #Q ,2 

R$="NBS1F.39  DATA  SPLIT  <D1-F27>" 

D4=F7=I=J=K=M1=M2=M3=M5=M6=N=N1=N2=N3=N4=N5=N6=N8=N9=Q=Q1=Q7=R=0 

D4=1979 

MAT  B=ZER 

DEF  FNJ(Q) 

GOTO  Q OF  500 
R=0 . 1 

DISP  "FI  LES  : ( 1 ) LIST,  ( 2 )SPLIT,  ( 3 ) MOVE 11 ; 

BEEP 

INPUT  Q7 

GOTO  Q7  OF  310,470,5000 
GOTO  190 
R=0 .11 

Q=FNF1+FNF8+FNF2 

PRINT  TAB17 , "N4  = number  of  ITERATIONS  in  NONLINSFIT" 

N=N1-N3+FNS2+FNF11 

N=N+N3 

IF  N>N2  THEM  375 
SERROR  E,384 
N4=FNF3+D[1 ,69] 

Q=FNF14 
GOTO  354 
SERROR  E ,190 
Q=FNS2 
GOTO  190 
R=0.111 
WAIT  100 

PRINT  "FILE  ; N; 

GOTO  354 


298 


470 

471 

472 

474 

476 

478 

480 

482 

485 

490 

495 

500 

505 

510 

550 

630 

640 

645 

650 

670 

690 

710 

730 

750 

770 

772 

774 

776 

778 

780 

790 

810 

815 

820 

822 

824 

826 

828 

830 

840 

850 

870 

890 

910 

915 

920 

930 

950 

970 

990 


F - SPLIT  computer  listing  (con't) 


R=0 .12 
N4=0 

Q=FNF1+FNF8+FNF2 

PRINT  TAB30 , "N4=SET#  in  MAT  B" 

Q=FNS1+FNF11 

N=N1-N3 

N=N+N3 

IF  M>N2  THEM  500 
SERROR  E,495 
Q=FNF3+FNF14 
GOTO  480 
Q=FNS2 

SERROR  E,190 

Q=FNF7+FNF6+FNF9+FNF4+FNS1+FNF5 
GOTO  500 

REM  1=L0AD  FR0M,2=PAGE  HEADER, 3=L0AD  FILE,4=ST0RE  HEADER, 5=SPLIT&ST0RE  FILES 
REM  FNF6=ST0RE  T0?,7=ST0RE  FREQ  #,8=L0AD  START#, 9=ST0RE  START# 

REM  FNF11=L0AD  HEAD,12=ST0RE  MAT  B,13=FREQ  SELECT  FOR  M0VE,14=PRT  STORE  INFO 
DEF  FNF(Q) 

GOTOQOF  690,840,1010,1410,1530,772,1330,790,1312,190,920,190,5300,1075 
R=1 

DISP  "LOAD  from  I NT  TAPE=0,EXT=1"; 

BEEP 

INPUT  F7 
RETURN  0 
R=1 .001 

DISP  "STORE  to  INT  TAPE=0,EXT=1" ; 

BEEP 

INPUT  F8 
RETURN  0 
R=1 .01 

DISP  "LOAD  FILESrSTART#, STOP#, STEP"; 

INPUT  N1,N2,N3 
RETURN  0 
R=1 .011 

DISP  "N4=START  SET  #(MAT  B)"; 

INPUT  N4 
N4=N4-1 
RETURN  0 
R=1 .012 

LOAD  DATA  #( 10-F7*5) ,N1 
N6=INT( A[l]/100) 

M6=D[5 ,75] 

Q=FNC5+FNS5 
RETURN  0 
R=1 .013 

FORMAT  " LD  N4  RN/ST  STAR  FREQ  # EL  DATE" ,8X , "REMARKS" ,/ 

WRITE  (15,930)"  FILE" 

PRINT 
RETURN  0 
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1010 

1070 

1072 

1075 

1090 

1110 

1150 

1170 

1190 

1210 

1230 

1250 

1310 

1312 

1314 

1316 

1320 

1325 

1330 

1350 

1370 

1380 

1410 

1450 

1470 

1490 

1510 

1530 

1550 

1570 

1590 

1594 

1596 

1598 

1610 

1630 

1645 

1650 

1670 

1690 

1710 

1730 

1750 

1790 


F - SPLIT  computer  listing  (con't) 


R=1 .02 

LOAD  DATA  #(10-F7*5),N 
RETURN  0 
R= 1.021 

IF  D[ 4 , 2 ] < 100  THEN  1310 

FORMAT  F4.0,F4.0,F7.2,2X,F5.0,F3.0,F4.0,2X,2F6.0 

IF  I NT ( N/3)#N/3  THEN  1190 

PRINT 

IF  Q7=l  OR  Q7=3  THEN  1250 

N4=N4+1 

Q=FNBN4 

WRITE  (15,1110)N,N4,A[1]/100,S$,A[2],D[5,75],D[4,2]/100,P$[1,12],"  "D$;E$ 
RETURN  0 
R=1 .03 

DISP  "STORE: (STARTING  FILE  #),STEP"; 

INPUT  Ml, M3 
M2=M1+N4-1 
RETURN  0 
R=  1.1 

DISP  "STORE  FREQ  #"; 

INPUT  M5 
RETURN  0 
R= 1.01 
Q=FNS2 

FORMAT  "STORE  RUN/SET  STAR  FREQ  ELEV  DATE" ,8X , "REMARKS" , / 

WRITE  (15,1470)"  FILE" 

RETURN  0 
R=1 .2 
N8=N9=0 

FOR  N=M1  TO  M2  STEP  M3 
N9=N9+1 

IF  B[7*N9-2 ,75]  >=  M5  THEN  1610 

N8=N8+1 

GOTO  1730 

Q=FNX( N9+M5/10) 

FORMAT  F4.0,F9.2,3X,F6.0,F6.0,3X,2F6.0 
A[1]=A[1 ]+10000* (M5-1) 

WRITE  (15 ,1630) N-N8*M3 ,A[1]/100 ,S$ ,A[2] , D[4 ,2]/100 ,P$[1 ,12] , " "D$;E$ 

STORE  DATA  #( 10-5*F8) ,N-N8*M3 

IF  I NT ( N/ 3 ) # N/3  THEN  1730 

PRINT 

NEXT  N 

Q=FNS5 

RETURN  0 


300 


1810 

1830 

1850 

1870 

1890 

1910 

1930 

1950 

1970 

1990 

2010 

2030 

2050 

2070 

2090 

2110 

2130 

2140 

2150 

2170 

2190 

2210 

2230 

2250 

2270 

2290 

2310 

2330 

2350 

2370 

2390 

2410 

2430 

2450 

2470 

2490 

2510 

2530 

2550 

2570 

2590 

2610 

2630 

2650 


F - SPLIT  computer  listing  (con't) 


R=2 

DEF  FNB(Q) 

FOR  1=1  TO  6 
FOR  J=1  TO  75 
B[7*Q-7+I  ,J]  = D[ I ,J] 

NEXT  J 
NEXT  I 

TRANSFER  D$  TO  B[7*Q,1] 

TRANSFER  E$  TO  B[7*Q,14] 

TRANSFER  P$  TO  B[7*Q,18] 

TRANSFER  S$  TO  B[7*Q,38] 

TRANSFER  X$  TO  B[7*Q ,41] 

TRANSFER  H$[5 ,8]  TO  B[7*Q ,63] 

FOR  1=1  TO  10 
B[7*Q,65+I]=A[I] 

NEXT  I 

B[7*Q ,75]=N0 
B[  1 ,71]  = N4 
RETURN  0 
R=3 
R=4 

REM  M5=FREQ  # (0=ALL  FREQ) 

DEF  FNX(N) 

M5=10*( N- 1 NT ( N ) ) 

N=INTN 

M6=B[7*N-2 ,75] 

IF  M6  THEN  2350 
M6=l 

MAT  D=ZER 
FOR  1=1  TO  6 
K=0 

FOR  J=1  TO  75 
IF  M5=0  THEN  2490 
IF  J<8  THEN  2490 

IF  I NT ( ( J-7-M5)/M6)-( J-7-M5)/M6  THEN  2530 
K=K+1 

D[ I ,K]=B[7*N-7+I ,J] 

NEXT  J 
NEXT  I 

IF  M5=0  THEN  2690 
FOR  1=1  TO  6 

D[ 1 , 3 ] = I NT ( ( B[7*N-7+1 ,3]+M6-M5)/M6) 

D[I , 7 ] = ( B[7*N-7+I ,7]+100*(M6-M5) )/M6 
NEXT  I 
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2670 

2680 

2690 

2710 

2730 

2750 

2770 

2790 

2810 

2830 

2850 

2870 

2890 

2910 

2930 

2950 

2970 

3070 

3310 

3330 

3350 

3370 

3390 

3410 

3430 

3450 

3470 

3510 

3530 

3550 

3570 

3590 

3610 

3630 

3650 

3670 

3690 

3710 

3730 

3750 

3770 


F - SPLIT  computer  listing  (con't) 


D[  5 , 75 ] =1 

D[6 ,75]=B[7*N-2 ,75]*B[7*N-1 ,75] 

TRANSFER  B[7*N,1]  TO  D$ 

TRANSFER  B[7*N,14]  TO  E$ 

TRANSFER  B[7*N,18]  TO  P$ 

TRANSFER  B[7*N,38]  TO  S$ 

TRANSFER  B[7*N,41]  TO  X$ 

TRANSFER  B[7*N,63]  TO  H$[5,8] 

FOR  1=1  TO  10 
A[I]=B[7*N,65+I] 

NEXT  I 

IF  M5=0  THEN  2910 
A[2]=B[7*N-7+M5 ,75] 

N0=B[7*N,75] 

RETURN  0 
DEF  FNC(Q) 

N5=N5+1 

Q=FNSQ 

Q=20 

PRINT  R$ 

PRINT 

PRINT  H$; " : " ;X$[ 1 ,4] ,TAB50 ,X$[5] 

PRINT 

PRINT 

FORMAT  35X ,F4 .0 , "Sysm  #" ,F5.2 ,59X , "RUN" ,F5.0 

WRITE  ( 15,3430)-N5,6,N6 

PRINT 

PRINT  TAB20 ,P$[13] 

IF  FLAG9  THEN  3670 

PRINT  TAB(Q) ,P$[1 ,3] : " ;P$[9 ,12] ; " " ;P$[4 ,6] ; " ";P$[7,8]; 

FORMAT  /,19X,F5.0,"  MHz  ",2F2.0 

B$="#ox." 

FOR  M5=l  TO  M6 

WRITE  ( 15 ,3570) D[M5 ,75] ; B$[M5 ,M5] ; " , " ; 

NEXT  M5 
RETURN  0 
DEF  FNS(Q) 

FOR  1=1  TO  Q 
PRINT 
NEXT  I 
RETURN  0 
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F - SPLIT  computer  listing  (con't) 


3790  R=3 

3810  REM  LIST  FILES 
3830  Q=FNF1+FNF2 
3850  GOTO  190 
3870  R=4 

3890  REM  SPLIT  FILES 
3910  WRITE  (15,930)"  FILE" 

3930  PRINT 

3950  FOR  1=102  TO  122 
3970  LOAD  DATA  #5,1 
3990  A[l]=A[l]+3000 

4010  WRITE  (15, 1110)1, A[1]/100,S$,A[2],D[5, 75], D[4, 21/100, P$[l, 12],"  "D$;E$ 

4030  STORE  DATA  #5,1 

4050  NEXT  I 

4070  END 

5000  R=5 

5005  N8=0 

5010  Q=FNF1+FNF8+FNF6+FNF9+FNF13+FNF2 
5020  PRINT  TAB30, " N4=ST0RE  file  #" 

5030  PRINT 

5035  N=FNF11+N1-N3 

5040  N4=M1-M3 

5050  N=N+N3 

5065  IF  N> N2  THEN  210 

5070  SERROR  E,5040 

5080  Q=FNF3 

5082  R=5.1 

5084  IF  FNQ N8=0  THEN  5050 
5086  N4=N4+M3 

5088  Q=FNF14 

5098  STORE  DATA  #( 10-F8*5) , N4 
5100  GOTO  5050 
5200  R=6 

5210  DISP  "STORE  MAT  B (1=YES) " ; 

5220  INPUT  Q 

5230  IF  Q#1  THEN  5250 

5240  STORE  DATA  4,B 

5245  REWIND 

5250  RETURN  0 

5300  R=7 

5310  DISP  "FREQ(MHz)  to  be  MOVED  (0=ALL) 11 ; 

5320  INPUT  N8 
5330  RETURN  0 
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8.19  CROSS  REFERENCE  for  F - SPLIT 


SYMBOL 


REFERENCE  LINE 


190 

290 

382 

3850 

210 

5065 

354 

370 

394 

375 

356 

480 

495 

500 

482 

550 

1190 

1150 

1250 

1190 

1310 

1090 

1610 

1594 

1730 

1598 

1690 

2350 

2310 

2490 

2430 

2450 

2530 

2470 

2690 

2570 

2910 

2870 

3070 

3210 

3110 

3092 

3250 

3130 

3310 

3090 

3670 

3530 

5050 

5084 

5100 

5250 

5230 

A$ 

3250 

A$[ 

3290 

AI[ 

0 

A[  105  870  1250  1645  1650 

2090  2830  2890  3990  4010 

B 170 

B$  3590 


B$[  110  3630 

BEEP  230  730  776  3096 

bi[  no 
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CROSS  REFERENCE  for  F - SPLIT  (con 1 1) 


SYMBOL 


REFERENCE  LINE 


BC 

1594 

1890 

1950 

1970 

1990 

2010 

2030 

2050 

2090 

2130 

2140 

2290 

2510 

2610 

2630 

2680 

2690 

2710 

2730 

2750 

2770 

2790 

2830 

2890 

2910 

COM 

0 

D 

2350 

D$ 

1250 

1650 

1950 

2690 

4010 

D$[ 

0 

D4 

130 

150 

3098 

3290 

DISP 

115 

210 

710 

774 

810 

824 

1314 

1350 

3094 

3170 

5210 

5310 

DIC 

0 

DC 

362 

890 

1090 

1250 

1650 

1890 

2510 

2610 

2630 

2670 

2680 

3630 

4010 

E 

360 

375 

485 

505 

5070 

E$ 

1250 

1650 

1970 

2710 

4010 

E$[ 

0 

F7 

130 

750 

1110 

F8 

778 

FLAG  9 

3530 

FNB( 

1830 

FNBN4 

1230 

FNC( 

2950 

FNC5 

910 

FNF  ( 

650 

FNF1 

320 

472 

3830 

5010 

FNF10 

472 

FNF11 

352 

476 

5035 

FNF12 

510 

FNF13 

5010 

FNF14 

365 

490 

5088 

FNF2 

320 

472 

3830 

5010 

FNF3 

362 

490 

5080 

FNF4 

510 
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CROSS  REFERENCE  for  F - SPLIT  (con 1 1) 


SYMBOL 


REFERENCE  LINE 


FNF5 

FNF6 

FNF7 

510 

510 

510 

5010 

FNF8 

320 

472 

5010 

FNF9 

510 

5010 

FNJ  ( 

175 

FNQ( 

105 

FNQN8 

5084 

FNR3 

3110 

FNS( 

3690 

FNS1 

476 

510 

FNS2 

352 

380 

500 

1450 

FNS5 

910 

1750 

FNSQ 

3070 

FNX( 

1610 

2230 

FORMAT 

170 

930 

1110 

1470 

1630 

2350 

3230 

3270 

3430 

3570 

H$ 

3370 

H$[ 

0 

2050 

2790 

I 

130 

1850 

1890 

1930 

2070 

2090 

2110 

2370 

2510 

2550 

2590 

2610 

2630 

2650 

2810 

2830 

2850 

3710 

3750 

3950 

4010 

4050 

J 

130 

1870 

1890 

1910 

2410 

2450 

2470 

2510 

2530 

K 

130 

2390 

2490 

2510 

KEY 

120 

Ml 

130 

1316 

1320 

1570 

5040 

M2 

130 

1320 

1570 

M3 

130 

1316 

1570 

1650 

5040 

5086 

M5 

130 

1370 

1594 

1610 

1645 

2250 

2430 

2470 

2570 

2610 

2630 

2870 

2890 

3610 

3630 

3650 

M6 

130 

890 

2290 

2310 

2330 

2470 

2610 

2630 

3610 
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CROSS  REFERENCE  for  F - SPLIT  (con't) 


SYMBOL 


REFERENCE  LINE 


N 

130 

352 

354 

356 

386 

478 

480 

482 

1150 

1250 

1570 

1650 

1690 

1730 

2230 

2250 

2270 

2290 

2510 

2610 

2630 

2680 

2690 

2710 

2730 

2750 

2770 

2790 

2830 

2890 

2910 

5035 

5050 

5065 

NO 

0 

2130 

2910 

N1 

130 

352 

478 

815 

5035 

N2 

130 

356 

482 

815 

5065 

N3 

130 

352 

354 

478 

480 

815 

5035 

5050 

N4 

130 

362 

826 

828 

1210 

1250 

1320 

2140 

5040 

5086 

N5 

130 

2970 

3092 

3450 

N6 

130 

870 

3450 

N8 

130 

1550 

1596 

1650 

5005 

5320 

N9 

130 

1550 

1590 

1594 

1610 

OF 

180 

270 

670 

P$ 

1990 

2730 

1 1 

CL 

0 

1250 

1650 

3510 

3550 

4010 

Q 

105 

116 

120 

130 

175 

180 

320 

365 

380 

472 

476 

490 

500 

510 

650 

670 

910 

1230 

1450 

1610 

1750 

1830 

1890 

1950 

1970 

1990 

2010 

2030 

2050 

2090 

2130 

2950 

3070 

3110 

3130 

3250 

3310 

3550 

3690 

3710 

3830 

5010 

5080 

5088 

5220 

5230 

O' 

130 

3190 

3250 

Q7 

130 

250 

270 

1190 

R 

130 

190 

310 

384 

470 

690 

772 

790 

822 

840 

920 

1010 

1075 

1312 

1330 

1410 

1530 

1810 

2170 

2190 

3790 

3870 

5000 

5082 

5200 

5300 

R$ 

125 

3330 

307 


CROSS  REFERENCE  for  F - SPLIT  (con 1 1) 


SYMBOL 


REFERENCE  LINE 


R$[ 

110 

REWIND 

5245 

S$ 

1250 

1650 

2010 

2750 

4010 

S$[ 

0 

SERROR 

360 

375 

485 

505 

5070 

STAT3 

3090 

STORE 

1670 

4030 

5098 

5240 

TRANSFER 

1950 

1970 

1990 

2010 

2030 

2050 

2690 

2710 

2730 

2750 

2770 

2790 

WRITE 

950 

1250 

1490 

1650 

3290 

3450 

3630 

3910 

4010 

X 

930 

1110 

1470 

1630 

3270 

3430 

3570 

x$ 

2030 

2770 

x$[ 

0 

3370 

ZER 

170 

2350 

LINES:  275 

BYTES:  6017 

SYMBOLS: 

130 

REFERENCES 

: 518 
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8.20  G-CHECKSET  flow  chart 


10: 

150: 

200: 


RUN 

I 

INITIALIZE  PROGRAM 


(2050:  FNF2) 
(2150:  FNF3) 
(2100:  FNF6) 
(2460:  FNF7) 


START  PROGRAM 
DATA  DEVICE? 

LOAD  FILE  START  #? 
STORE  DEVICE? 

STORE  FILE  START  #? 


>> 


(2350:  FNF5) 
(5020:  FNQ1 ) 
(2600:  FNF9) 


NEXT  FILE 

LAST  FILE  - > 150: 

LOAD  FILE 

FIND  AND  REPLACE  BAD  POINTS 

STORE  RESULTS  ->  200: 
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10 

53 

54 

55 

60 

70 

80 

95 

90 

100 

110 

120 

135 

148 

150 

160 

170 

175 

180 

190 

195 

200 

210 

220 

222 

224 

226 

230 

240 

250 

260 

270 

280 

290 

300 

1990 

2000 

2010 

2030 

2040 

2050 

2060 

2070 

2080 

2090 


8.21  G - CHECKSET  computer  listing 


COM  D$[25],H$[50],P$[40],S$[5],AI[10],DI[6,75],N0,X$[21],E$[8] 

REM  <10  THRU  145>  DEMONSTRATE  THE  USE  OF  THE  CHECKOUT  VER  1.0 

REM  CHECKOUT  IS  CALLED  VIA  FNQ(Q)  AND  RETURNS  THE  NUMBER  OF  ACTIONS  TAKEN 

REM  THE  VALUE  OF  THE  ARGUMENT  IN  THE  FNQ(  ) CALL  IS  A DUMMY  (NOT  USED) 

DIM  R$[ 50] ,B$[11] 

DISP  "PROG  EXT ( 5) , INT( 10) " ; 

INPUT  Q 
M1=M3=0 
LOAD  KEY  #0,2 

R$="NBS1G.09  CHECKSET  <D1-F29>" 

N5=0 

DEF  FNJ(Q) 

R=1 

R=2 

Q=FNF2+FNF3+FNF6 
IF  F7=F8  THEN  175 
Q=FNF7 

LOAD  DATA  #( 10-F7*5) ,N1 
Q=FNF1+FNF4  , 

N=N1-N7 

N8=0 

N=N+N7 

IF  N>N2  THEN  250 
SERROR  E,270 
Q=FNF5 

IF  NO# 6 OR  A[ 2 ]#7 300  THEN  200 
N8=N8+1 

Q=FNQ1+FNS2+FNF8+FNF9+FNS3+FNF4 

GOTO  200 

SERROR  E,135 

GOTO  135 

R=3 

WAIT  100 

PRINT  "FILE  #" ; N; 

GOTO  200 
R=4 

REM  FNF1=PAGE  HEADER, 2=L0AD  FROM, 3= LOAD  START#, 4=L0AD  HEADER, 5=L0AD  FILE 
REM  FNF6=ST0RE  T0?,7=ST0RE  START#, 8=ST0RE  HEADER ,9=ST0RE  FILE 
DEF  FNF(Q) 

GOTO  0 OF  2240,2050,2150,2300,2350,2100,2460,2550,2600 
R=5 

DISP  "CHECKSET: LOAD  from  INT  TAPE=0,EXT=1" ; 

BEEP 

INPUT  F7 
RETURN  0 
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G - CHECKSET  computer  listing  (con't) 


2100  R=6 

2110  DISP  "STORE  to  INT  TAP£=0 ,EXT=1 " ; 

2120  BEEP 
2130  INPUT  F8 
2140  RETURN  0 
2150  R=7 

2160  DISP  "LOAD  FI LES :START#, STOP#, STEP" ; 

2170  INPUT  Ml , N2 , N7 
2180  RETURN  0 
2240  R=8 

2250  LOAD  DATA  #(10-F7*5) ,N1 
2270  M6=D[5 ,75] 

2280  Q=FNC5+FNS5 
2290  RETURN  0 
2300  R=9 

2310  FORMAT  " LDfile  RN/ST  STAR  FREQ  # EL  DATE" ,8X , "REMARKS" 

2320  WRITE  (15,2310) 

2340  RETURN  0 
2350  R=10 

2360  LOAD  DATA  #(10-F7*5),N 

2370  IF  D[4 ,2]<1000  THEN  2450 

2380  FORMAT  F4.0.F11 .2 ,2X ,F5 .0.F3.0 ,F4.0 ,2X ,2F6 .0 

2440  WRITE  ( 15 ,2380) N,A[1]/100 ,S$ ,A[2] , D[5 ,75] , D[4,2]/100 ,P$[1 , 12] ,"  "D$;E$ 
2450  RETURN  0 
2460  R= 1 1 

2470  DISP  "STORE: (STARTING  FILE  #),STEP"; 

2480  INPUT  Ml, M3 
2500  RETURN  0 
2550  R= 1 2 
2560  Q=FNS2 

2570  FORMAT  "STORE  RUN/SET  STAR  FREQ  ELEV  DATE" ,8X , "REMARKS" 

2580  WRITE  (15,2570) 

2590  RETURN  0 
2600  R= 1 3 

2608  Q=N+(F7#F8)*(M1-N-M3+N8*M3) 

2610  STORE  DATA  #(10-5*F8),Q 

2620  FORMAT  F4 .0 ,F9 .2 ,3X ,F6 .0,F6.0 ,3X ,2F6.0 

2630  WRITE  ( 15 ,2620)Q , A[l]/100 ,S$ ,A[2] , D[4 ,2]/100 ,P$[1 , 12] , " "D$;E$ 

2640  RETURN  0 
2700  R= 13.1 
2710  DEF  FNS(Q) 

2720  FOR  1=1  TO  Q 
2730  PRINT 
2740  NEXT  I 
2750  RETURN  0 
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2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 


G - CHECKSET  computer  listing  (con't) 


DEF  FNC(Q) 

N5=N5+1 

Q=FNSQ 

Q=20 

PRINT  R$ 

PRINT 

PRINT  H$ ; " : " ;X$[ 1 ,4] ,TAB50 ,X$[5] 

PRINT 

PRINT 

FORMAT  35X ,F4 .0 , 

WRITE  ( 15, 2900 ) - N5 
PRINT 

PRINT  TAB20 ,P$[ 13] 

IF  FLAG9  THEN  3010 

PRINT  TAB( Q) ,P$[1 ,3] ; " : " ;P$[9 , 12] ; " ";P$[4,6];"  ";P$[7,8]; 

FORMAT  / , 19X ,F5 .0 ,"  MHz  \2F2.0 
B$  = "#ox. " 

FOR  M5=l  TO  M6 

WRITE  ( 15 ,2960 ) D[M5 ,75] ; B$[M5 ,M5] ; " , " ; 

NEXT  M5 
RETURN  0 
END 

REM  BEGIN  CHECKSET  DEFINED  FUNCTION  VERSION  1.0 
DEF  FNQ(Q) 

Q=Q0=Q1=Q2=Q3=Q4=Q5=Q6=Q7=Q8=Q9=Z0=Z1=Z2=Z4=Z5=0 

Z4=A[9]*lE-04 

DEF  FNZ(Z5)=Z4*EXP( D[T6 ,Z5]*lE-04 ) 

Q=0 

FOR  T6=l  TO  6 
N4=D[T6,3] 

REM  BEGIN  CHECKOUT 
FOR  Z0=1  TO  2 
Zl  = l 

GOSUB  T6  OF  5560,5700,5700,5700,5700,5700 
FOR  N3=l  TO  N4 
Q5=FNZ( N3+7 ) 

GOSUB  T6  OF  5270,5330,5330,5330,5330,5330 
NEXT  N3 

IF  Zl=l  THEN  5190 
NEXT  ZO 

GOSUB  ( NOT  Z1  AND  T6=l)  OF  5560 
REM  END  CHECKOUT 
NEXT  T6 

IF  Q=0  THEN  5240 
WRITE  (15,5950) 

RETURN  Q 

REM  END  CHECKSET 
END 
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5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

5580 

5590 

5600 

5610 

5620 

5630 

5640 

5650 

5660 

5670 

5680 

5690 


G - CHECKSET  computer  listing  (con't) 


REM  BEGIN  SUB4 
Q8=Q0+Q1*N3 

GOSUB  ( ABS ( Q5-Q8 ) >=  9*Q2)  OF  5790 
RETURN 

REM  END  SUB4 
END 

REM  BEGIN  SUB5 
Q3=FNZ( N3+7-2  > 

IF  ( N3-2 ) >=  1 THEN  5370 
Q3=FNZ( N3+7+2 ) 

Q4=FNZ( N3+7-1 ) 

IF  ( N3-1 ) >=  1 THEN  5400 
Q4=FNZ( N3+7+1 ) 

Q6=FNZ( N3+7+1 ) 

IF  ( N3+1 ) <=  N4  THEN  5430 
Q6=FNZ( N3+7-1 ) 

Q7=FNZ( N3+7+2 ) 

IF  ( N3+2)  <=  N4  THEN  5460 
Q7=FNZ( N3+7-2 ) 

Q4=(Q4+Q6)/2 

Q3=(Q3+Q7)/2 

Q8=(4*Q4-Q3)/3 

Q6=ABS( Q5-Q9)  >=  1*Q9 

Q4=ABS( Q5-Q4)  >=  9*Q2 

Q3=ABS( Q5-Q3 ) >=  9*Q2 

GOSUB  ( Q6  OR  (Q4  AND  Q3))  OF  5790 

RETURN 

REM  END  SUB5 
END 

REM  BEGIN  FITLINESTAT  ROUTINE 
Q1  = (FNZ(  N4+7)-FNZ( 1+7) )/( N4-1) 
Q4=Q3=0 

FOR  Z2=l  TO  N4 
Q5=FNZ(Z2+7 ) 

Q4=Q4+Q5 
Q3=Q3+Q5"2 
NEXT  12 
Q9=Q4/N4 

Q0=Q9-Q1*( N4+1 )/2 

Q2=SQR( ABS( ( Q3-Q4*Q9)/( N4-2 ) ) ) 

RETURN 

REM  END  FITLINESTAT 
END 
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5700 

5703 

5705 

5710 

5720 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5795 

5800 

5810 

5820 

5830 

5840 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 


G - CHECKSET  computer  listing  (con't) 


REM  BEGIN  FITAVG  SUBROUTINE 
REM*****USE  NEWFITAVG  AT  7000***** 

GOTO  7000 
Q4=0 

FOR  Z2=l  TO  N4 
Q4=Q4+FNZ( Z2+7 ) 

NEXT  Z2 

Q9=Q4/N4 

RETURN 

REM  END  FITAVG 
END 

REM  BEGIN  BADPOINT  SUBROUTINE 

PRINT  Q6;Q4;Q3 

Q=Q+1 

IF  Z1=0  THEN  5870 
GOSUB  5930 
IF  T6#l  THEN  5860 

FORMAT  " SYSTEM  FITTED  LINE  IS:",/,"  P(N3)  =" ,F8.5,F10.7,F8.5 

WRITE  (15,5840)Q0,"  + PSL0PE*N3;  PSLOPE  = ",Q1,";  SIGMA  = ",Q2 
Z1=0 

FORMAT  " AT  POINT  N3=",F3.0,"  THE  VALUE" ,F8.5,F8.5,F2.0 
WRITE  ( 15,5870)N3,Q5,"  WAS  REPLACED  WITH",Q8,"  ON  CUTPASS",ZO 
D[T6 , N3+7]=1E+04*L0G( Q8*lE+04/A[9] ) 

RETURN 

REM  END  BADPOINT 
END 

REM  BEGIN  PLOTANDDATA  SUBROUTINE 
WRITE  (15,5950) 

FORMAT  80"=" 

Q7=A[ 1 ] - 100* I NT ( A[ 1 ] /100 ) 

WRITE  ( 15 , 5980 ) T6-4 , 1 NT ( A[ 1 ] /100 ) ,Q7,(Q7-1)*6+T6 
FORMAT  63X , " CUT  RUN  SET  N" ,/ ,63X ,F2 .0 ,3F5.0 
REM  DELETE  <GOTO  RETURN>  TO  ALLOW  CUTDATAPRINT 
PRINT  " N3  PWR/PWR(ADD)" 

FORMAT  3X ,F3 .0 , IX ,F8 .5 
FOR  Z2=l  TO  N4 

WRITE  ( 15 ,6020) Z2 ,FNZ(Z2+7 ) , 

IF  5*INT(Z2/5)#Z2  THEN  6070 

PRINT 

NEXT  Z2 

WRITE  (15,6090) 

FORMAT  80"." 

RETURN 
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G - CHECKSET  computer  listing  (con't) 


6110  REM  END  PLOTANDDATA 

7000  REM  BEGIN  NEWFITAVG  SUBROUTINE  (with  Hadamard  Variance) 

7010  Q3=0 

7020  Z7=FNZ( 1+7 ) 

7030  Z8=FNZ( 2+7 ) 

7040  Q4=Z7+Z8 
7050  FOR  Z2=3  TO  N4 
7060  Z9=FNZ(Z2+7 ) 

7070  Q4=Q4+Z9 

7080  Q3=Q3+(Z7-2*Z8+Z9)"2 

7090  Z7=Z8 

7100  Z8=Z9 

7110  NEXT  Z2 

7120  Q9=Q4/N4 

7130  Q3=Q3/( N4-2) 

7140  Q3=Q3/4 

7150  Q2= SQRQ3 

7155  PRINT  "HADVAR="Q2 

7160  RETURN 

7170  REM  END  NEWFITAVG 

7180  END 
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8.22  CROSS  REFERENCE  for  G - CHECKSET 


SYMBOL 


REFERENCE  LINE 


135 

175 

260 

160 

200 

224 

240 

300 

250 

210 

2450 

2370 

3010 

2940 

5190 

5170 

5240 

5220 

5370 

5350 

5400 

5380 

5430 

5410 

5460 

5440 

5860 

5830 

5870 

5810 

5930 

5820 

6070 

6050 

7000 

5705 

AI[ 

10 

A[ 

224 

2440 

2630 

5040 

5890 

5960 

5970 

B$ 

2970 

B$[ 

60 

2990 

BEEP 

2070 

2120 

COM 

10 

D$ 

2440 

2630 

D$[ 

10 

DISP 

70 

137 

2060 

2110 

2160 

2470 

DI[ 

10 

Dr 

2270 

2370 

2440 

2630 

2990 

5050 

5080 

5890 

E 

220 

250 

E$ 

2440 

2630 

E$[ 

10 

F7 

160 

2080 

2608 

F8 

160 

2130 

2608 
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CROSS  REFERENCE  for  G - CHECKSET 


SYMBOL 


REFERENCE  LINE 


FLAG9  2940 
FNC(  2810 
FNC5  2280 


F NF  ( 
FNF1 
FNF2 

2030 

180 

150 

FNF3 

150 

FNF4 

180 

230 

FNF5 

222 

FNF6 

150 

FNF7 

170 

FNF8 

230 

FNF9 

230 

FNJ  ( 

120 

FNQ( 

5020 

FNQ1 

230 

FNS( 

2710 

FNS2 

230 

2560 

FNS3 

230 

FNS5 

2280 

FNSQ 

2830 

FNZ( 

5050 

5390 

5570 

7030 

5140 

5400 

5600 

7060 

5340 

5420 

5730 

5360 

5430 

6040 

5370 

5450 

7020 

FORMAT 

2310 

2380 

2570 

2620 

2900 

2960 

5840 

5870 

5950 

5980 

6020 

6090 

H$ 

2870 

H$[ 

10 

I 

2720 

2740 

KEY 

90 

Ml 

2480 

2608 

M3 

2480 

2608 

M5 

2980 

2990 

3000 

M6 

2270 

2980 
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CROSS  REFERENCE  for  G - CHECKSET 


SYMBOL 


REFERENCE  LINE 


N 

NO 

190 

2608 

0 

200 

224 

210 

290 

2440 

N1 

190 

2170 

M2 

210 

2170 

N3 

5130 

5140 

5160 

5280 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5880 

5890 

N4 

5080 

5130 

5410 

5440 

5570 

5590 

5640 

5650 

5660 

5720 

5750 

6030 

7050 

7120 

7130 

N5 

110 

2820 

2910 

N7 

190 

200 

2170 

N8 

195 

226 

2608 

OF 

2040 

5120 

5150 

5190 

5290 

5520 

1 1 

Q_ 

0 

2440 

2630 

2930 

2950 

Q 

80 

90 

120 

150 

170 

180 

222 

230 

2030 

2040 

2280 

2560 

2608 

2630 

2710 

2720 

2810 

2830 

2840 

2950 

5020 

5030 

5060 

5220 

5240 

5800 

QO 

5030 

5280 

5650 

5850 

Q1 

5030 

5280 

5570 

5650 

5850 

Q2 

5030 

5290 

5500 

5510 

5660 

5850 

7150 

7155 

03 

5030 

5340 

5360 

5470 

5480 

5510 

5520 

5580 

5620 

5660 

5795 

7010 

7080 

7130 

7140 

7150 

04 

5030 

5370 

5390 

5460 

5480 

5500 

5520 

5580 

5610 

5640 

5660 

5710 

5730 

5750 

5795 

7040 

7070 

7120 

05 

5030 

5140 

5290 

5490 

5500 

5510 

5600 

5610 

5620 

5880 

Q6 

5030 

5400 

5420 

5460 

5490 

5520 

5795 
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CROSS  REFERENCE  for  G - CHECKSET 


SYMBOL 


REFERENCE  LINE 


^1 

139 

5030 

5430 

5450 

5470 

5960 

5970 

Q8 

5030 

5280 

5290 

5480 

5880 

5890 

Q9 

5030 

5490 

5640 

5650 

5660 

5750 

7120 

R 

135 

148 

270 

1990 

2050 

2100 

2150 

2240 

2300 

2350 

2460 

2550 

2600 

2700 

RS 

100 

2850 

R$[ 

60 

S$ 

2440 

2630 

S$[ 

10 

SERROR 

220 

250 

STORE 

2610 

T6 

5050 

5070 

5080 

5120 

5150 

5190 

5210 

5830 

5890 

5970 

WRITE 

2320 

2440 

2580 

2630 

2910 

2990 

5230 

5850 

5880 

5940 

5970 

6040 

6080 

X 

2310 

2380 

2570 

2620 

2900 

2960 

5980 

6020 

x$[ 

10 

2870 

zo 

5030 

5100 

5180 

5880 

Z1 

5030 

5110 

5170 

5190 

5810 

5860 

Z2 

5030 

5590 

5600 

5630 

5720 

5730 

5740 

6030 

6040 

6050 

6070 

7050 

7060 

7110 

Z4 

5030 

5040 

5050 

Z5 

5030 

5050 

11 

7020 

7040 

7080 

7090 

18 

7030 

7040 

7080 

7090 

7100 

19 

7060 

7070 

7080 

7100 

LINES:  246 

BYTES:  5593 

SYMBOLS: 

115 

REFERENCES: 

430 
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8.23  H - FIT  flow  chart 


980: 

1030: 

6410: 

6480: 

6500: 

6520: 

6520: 

6550: 

6590: 

6620: 

6730: 

6760: 

6800: 

6940: 

7150: 

7150: 

7410: 

7410: 

7530: 

7570: 

7620: 

7660: 

7700: 

7760: 

7780: 


RUN 


COM  STATEMENT 
~ I 

» (START) PGM 

I 

» INITIALIZE 

NUMBER  OF  PASSES? 

I 

» (NEXT) BATCH 

IF  LAST  BATCH  > STOP 

TODAYS  TIME  & DATE? 

BEAM  WIDTH  GUESS? 

SELECT  DATA  DEVICE 

IF  1ST  BATCH  THEN  KEY  IN  FIRST  FILE  & LAST  FILE 

I 

» (NEXT)SET 

LOAD  SET 

I 

» DOSET 

GET  SET  PARAMETERS 
PRINT  SET  LABELS 

I 

> A CQU I REOBSERVATIONS 

> SET  UP  P VECTOR 

I 

> ACQUIRE  PARAMETERS 

SYSTEM  TEMPERATURE 
SLOPE  GUESS 
SOURCE  TEMPERATURE 
LONGITUDINAL  BIAS  GUESS 
TRANSVERSE  BIAS  GUESS 
BEAMWIDTH  GUESS 
I 

> STARTFIT 

INITIALIZE  D MATRIX  PARAMETERS 


GUESS 

GUESS 
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8.23  H - FIT  flow  chart  (con't) 


7800: 

7820: 

7890: 

8000: 

8000: 

8240: 


8350: 

8350: 

8350: 

8440: 

8440: 

8450: 

8460: 

8480: 

8530: 

8540: 

8560: 

8590: 

8650: 

8650: 

8670: 

8670: 

8790: 

8830: 

8860: 

8900: 

8930: 

8950: 

9210: 


» IMPROVE  PARAMETERS 

I 

> COMPUTE  FUNCTION  AND  DESIGN  MATRIX 


> BEGIN  PASS 

I 

> BEGIN  CUTS 

COMPUTE  FUNCTION  Z 
COMPUTE  DESIGN  MATRIX  K 


> END  OF  CUTS 

USE  N DECL  OF  CENTER  CUT 
IF  1st  PASS  then  PRINT  AND  PLOT 
I 

> PERFORM  MATRIX  OPERATIONS 

H:=P-Z:  "OBSERVED  CALCULATED 
R :=TRANSPOSE(H) 

W:=R*H 

COMPUTE  SIGMA 
L:=TRANSPOSE(K) 

U "INVERSE!  L*K) 

E :=( U*L)*H 
NEW  X :=OLD  X+E 

I 

> VARCOVAR  PARAMETERS 

VARCOVAR  MATRIX :=SIGMA  SQUARE D*U 

I 

> SLOP  TEST 

COMPUTE  SLOP 

UPDATE  D MATRIX  PARAMETERS 

IF  SLOP  EXCESSIVE  THEN  IMPROVE  PARAMETERS— >7800 : 

I 

» PRINT  RESULTS 

STORE  RESULTS 


» POSTSTORE 

PRINT  AND  PLOT  RESULTS 

I 

» ENDOFSET  - >6620  : ( NEXT)SET 
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980 

985 

990 

1030 

1050 

1060 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1320 

1340 

1350 

1370 

1380 

1400 

1410 

1420 

1430 

1730 

1750 

1760 

1770 

1780 

1790 

1800 

1810 


8.24  H - FIT  computer  listing 


COM  D$[25],H$[50],P$[40],S$[5],AI[10],DI[6,75],N0,X$[21],E$[8] 

PRINT  TAB20 , "NBS1H.08  NONLINLSFIT  <D1-F31>" 

REM:  VERSION  V .00-AX-70-18-G  1980JUN20/1420  DH  DISC#S38 .14 

REM  »( START) PGM 
GOTO  6410 
END 

DIM  ES[18],HS[70],KS[70,18],LS[18,70],0[18],PS[70] 

DIM  RS[1,70],U[18,18],W[1,1],X[18],YS[18],ZS[70] 

A2=A7=A8=A9=C=C1=C2=C4=C5=C6=C7=C8=C9=C0=0 

E1=E2=E3=E4=E7=E9=F=F1=F8=F9=F0=G1=G2=H=H1=H2=H3=H4=0 

I=I1=I2=I5=I6=I9=I0=J=J1=J2=J3=J4=J6=J7=L=L1=L2=L3=L4=N4=N5=N6=0 

P=P1=P4=P6=P9=P0=Q=Q1=Q2=Q4=Q5=Q8=Q9=T6=U=U1=0 

DIM  G$[72],I$[72],L$[72],M$[72],N$[133],0$[1],U$[133] 

N $ [ 1 , 3 5 ] = " T sy  s temT  sy  s t emT  sy  s t emT  sy  s temT  system" 

U$[ 1 ,35]="<K>  <K>  <K>  <K>  <K> 

N$[36 ,70]="  SLOPE  SLOPE  SLOPE  SLOPE  SLOPE" 

U$[36 ,70]="<K/hr>  <K/hr>  <K/hr>  <K/hr>  <K/hr>  " 

N$[71 ,112]="D  TsrceD  ibiasD  ibiasD  ibiasD  ibiasD  ibias" 

U$[ 7 1 ,112]  = "<K>  <deg>  <deg>  <deg>  <deg>  <deg>  " 

N$[113,133]="Z  tbiasH  widthxxxxxxx" 

U$[ 113 , 133]  = " <deg>  <deg>  xxxxxxx" 

Q=Q4=Q5=I9=P4=L3=E4=A2=Q2=0 

MAT  E=ZER 

MAT  H=ZER 

MAT  K=ZER 

MAT  U=ZER 

MAT  X=ZER 

MAT  Z=ZER 

C5=( 1/5 )*70 

P 1 = 5+1 E -04*0 

PRINT  TAB15 , "PGM:  VERSION  V.00-A%-70-18-G" 

RETURN  0 
STOP 

DEF  FND(U) 

GOTO  U OF  1080,1320 

GOTO  1080 

END 

DEF  FNB(U) 

GOTO  U OF  1760,1760 
PRINT 

IF  U=1  THEN  1800 

PRINT  " MO="NO; " S$  SOURCE:  ";S$;"  ";D$;E$ 

PRINT  " ";H$;"  ";X$ 

RETURN  0 
END 


322 


H - FIT  computer  listing  (con't) 


1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1930 

1940 

1950 

1970 

1980 

2060 

2070 

2080 

2090 

2110 

2130 

2140 

2150 

2170 

2180 

2200 

2220 

2240 

2250 

2260 

2280 

2290 

2310 

2320 

2340 

2360 

2380 

2390 

2410 

2430 

2460 

2470 

2490 

2510 

2520 

2540 

2550 

2560 

2570 

2580 


DEF  FNE(U) 
L=U 


PRINT 

PRINT  "AT  LINE"L;"at  least  ONE  VARIABLE  OR  ...  IS  TROUBLESOME:" 
PRINT  "Check:  Q="Q;"Q4="Q4;"Q5="Q5;"Q4-Q5="Q4-Q5;"I9="I9;"P4="P4 
PRINT  "L3="L3; "FO="FO; "F8="F8; "X(18)="X[18] 

PRINT  "E4="E4 ; "A2="A2 ; "Q2="Q2 

DISP  " ERROR  NEAR  LINE:  "L"  look  for  trouble  NEAR  THAT  LINE"; 
IF  STATI0<8  THEN  9240 
RETURN  L 
END 

DEF  FNG(U) 

GOTO  U OF  2060,2080,2470,2490,2550,2570 
L=FNE( 2060) 

STOP 

DISP  "KEY  IN:  FIRSTFILE,  LASTFILE"; 

INPUT  F1,F9 

IF  F1>F9  THEN  2080 

F0=F8=F1 


RETURN  0 
REM  »FNG3L0AD 


F0=F8 


L4=l 

SERROR  L3 ,2310 

IF  STATI0<8  THEN  2280 

DISP  "PUT  DATA  IN  DEV"IO"CONT,  EXEC"; 

STOP 

GOTO  2200 

LOAD  DATA  #IO,FO 

GOTO  2410 

PRINT  " LOAD-ERROR,  FILE:"FO 
L4=L4+1 

IF  L3<56  THEN  6300 
IF  L4  <=  5 THEN  2200 


F8=F8+1 
GOTO  6620 
F8=F8+1 

SERROR  L3 ,6300 
GOTO  6760 
RETURN  0 

IF  F8  <=  F9  THEN  2540 

PRINT  " FI LE"F9"IS  THE  last  file  OF  FILES"F1"T0  "F9 
PRINT 

RETURN  (F8  <=  F9) 

DISP  "DATA  DEVICE?:  5( DISC) , 10(CASS)"; 

INPUT  10 
RETURN  0 
END 
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2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2690 

2710 

2730 

2740 

2750 

2760 

2770 

2790 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2910 

2920 

3040 

3050 

3180 

3190 

3200 

3210 

3220 

3230 

3250 

3270 

3290 

3300 

3310 

3320 

3340 

3350 


H - FIT  computer  listing  (con't) 


DEF  FNH(U) 

GOTO  U OF  2630,2660 
GOTO  2630 

PRINT  "PASSNUM="PO" D Tsrce"0[ll]*Y[ll]"  H wi dth  = "0[18]*Y[ 18] 11  FILE:"FO 
RETURN  0 

FORMAT  "STD  DEV  RESI DUALS : " ,F12 .6 ,5X , "SLOP : " ,F14 .7 ,4X ,F7 .2 

WRITE  ( 15, 2650)Q2, Ql, "RUN. SET :",A[ 1]/100 

G1=G2=H1=H2=0 

FOR  Q=1  TO  Q4 

H3=ABS( H[Q] ) 

IF  H3  <=  HI  THEN  2790 

H2=H1 

G2=G1 

H1=H3 

G1=Q 

GOTO  2830 

IF  H3  <=  H2  THEN  2830 

H2=H3 

G2=Q 

NEXT  Q 

FORMAT  "TWO  LARGEST  RESIDUALS:  Q H(Q)  H(Q)/SIGMA" 

WRITE  (15,2840)"  Q H(Q)  H(Q)/SIGMA" 

FORMAT  21X,F4.0,F10.5,F11.5,F6.0,F10.5,F11.5 
WRITE  ( 15 ,2860) G1  ,H1,H1/Q2,G2,H2,H2/Q2 
RETURN  0 
END 

DEF  FNI(U) 

GOTO  U OF  3060,3060,3180,3200,3220,3220,3340,3360,3380,3380 
L=F  NE ( 3040 ) 

STOP 

M$="<name/id  CAN  BE  HARDCODED  AS  M$  IN  FNI ( 3 ) > " 

RETURN  0 

PRINT  "BATCH  RUN  ID:  ";M$ 

RETURN  0 

DISP  "KEY  IN  today's  time/date"; 

INPUT  G$ 

IF  G$[ 1 ]#"  " THEN  3310 
IF  U=6  THEN  3320 
DISP  "PLEASE 
GOTO  3220 
I$=G$ 

RETURN  0 

I$="<time/date  CAN  BE  HARDCODED  AS  1$  IN  FNI ( 7)>" 

RETURN  0 
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3360 

3370 

3380 

3400 

3420 

3440 

3450 

3470 

3490 

3500 

3510 

3530 

3540 

3550 

3560 

3570 

3590 

3600 

3610 

3620 

3630 

3650 

3670 

3690 

3700 

3710 

3720 

3730 

3820 

3840 

3850 

3860 

3870 

3880 

3910 

3920 

3950 

3960 


H - FIT  computer  listing  (con't) 


PRINT  "DATA  FIT  RUN  TIME/DATE:  " ; I $ 

RETURN  0 

DISP  "K:  beamwidth  guess  (deg)"; 

INPUT  H4 

IF  H4  <=  0 THEN  3470 

C2=H4 

RETURN  0 

IF  U=10  THEN  3450 
DISP  "PLEASE 
GOTO  3380 
END 

DEF  FNJ(U) 

GOTO  U OF  3560,3560 

FORMAT  "NONLINLSFIT  GAUSSIAN  SHAPE  MODEL" ,9X , "FI LE : " ,F4.0 ,8X ,F7 .2 
WRITE  ( 15,3550)F0, "RUN. SET" ,A[1]/100 
IF  U=1  THEN  3620 
F=FNI4+FNI8+FNB2 

FORMAT  "D( 6 ,75 ) = <DATAPOI NTTIME>  =",F4.0,"  seconds" , 10X ,F6 .0 
WRITE  ( 15,3600) D[6 ,75] , " DATA  STATUS  D( 1 ,70) : " , D[ 1 ,70] 

RETURN  0 
END 

DEF  FNL(U) 

LI = LGT ( A BS ( U ) ) /IE-04 

IF  ABS(Ll)  <=  32767  THEN  3720 

L2=L2+1 

RETURN  SGN( LI )*32767 

RETURN  LI 

END 

DEF  FNN(U) 

N4=D[T6,3] 

Q8=( 1+INT( ( N4-C5)/2) )*( N4>C5)+1*( N4  <=  C5) 

Q9=INT( ( N4+C5)/2)*( N4>C5)+N4*( N4  <=  C5) 

RETURN  0 
END 

DEF  FNO(U)=COSU*( 1+0 . 00274* ( NO  <=  4)-0.0339*( N0=6) )*360*I9/86400 
END 

DEF  FNP(U)=P4*EXP( D[T6 ,U]*lE-04) 

END 
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3980 

4000 

4010 

4020 

4030 

4050 

4070 

4080 

4090 

4100 

4120 

4125 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4220 

4230 

4290 

4300 

4320 

4330 

4340 

4360 

4370 

4390 

4400 

4410 

4430 

4450 

4470 

4490 

4500 

4510 

4530 

4550 

4570 

4590 

4600 

4610 

4630 

4650 


H - FIT  computer  listing  (con't) 


DEF  FNR(U) 

IF  P=3  THEN  4190 

FORMAT  "X(  ).. PARAMETER... VALUE UNITS E:  DELTAX" 

WRITE  (15,4010)" UNCERTAINTY UNC/VALUE" 

PRINT 

FOR  J=1  TO  Q5 

IF  J#1 7 AMD  P=2  THEN  4170 

H=7*J-6 

CO = Y [ J ] 

C8=SQR( U[J ,J ] ) 

IF  J#6  AND  J#ll  AND  J#12  AND  J#17  AND  J#18  THEN  4160 

IF  P=2  THEN  4160 

PRINT 

FORMAT  F3.0,3X,F13.6,2X,F11.7,3X,F12.7,3X,F9.4 

WRITE  ( 15 ,4150) J , N$[H ,7*J] ,X[J ]*C0,U$[H,7*J] ,E[J ]*C0 ,C8*C0 ,C8/(X[J]+1E-15) 

NEXT  J 

PRINT 

RETURN  0 

END 

DEF  FNS(U) 

GOTO  U OF  4290,4290,4290,4290 

FIXED  5 

Q=0 

I1=J1=P[1] 

J3=P[1]+P[2]+P[3] 

J4=2 

J6=2 

FOR  T6=2  TO  6 
F=FNNO 

FOR  I=Q8  TO  Q9 
Q=Q+1 

IF  P[ Q] >11  THEN  4470 
I1=P[Q] 

IF  P[Q]<J1  THEN  4500 
J1=P[Q] 

IF  KQ8+3  THEN  4600 
H=P[Q-2]+P[Q-l]+P[Q] 

IF  H<J3  THEN  4600 

J3=H 

J4=Q-1 

J6=2+INT((Q*5-1)/Q4) 

NEXT  I 
NEXT  T6 

IF  U#4  THEN  4680 
STANDARD 


326 


H - FIT  computer  listing  (con't) 


4660  RETURN  J6 

4680  IF  U>2  OR  P=3  THEN  5190 

4710  1 2= J 2=Z[ 1 ] 

4720  FOR  Q=2  TO  Q4 
4740  IF  Z[Q]> 12  THEN  4780 
4760  I2=Z[Q] 

4780  IF  Z[ Q] < J 2 THEN  4810 
4800  J2=Z[Q] 

4810  NEXT  Q 
4820  FORMAT  72"=" 

4830  WRITE  (15,4820) 

4840  Q=0 

4850  FOR  T6=2  TO  6 

4860  FORMAT  F7.3,"  degrees  POINT" ,F3.0,4X ,F7.3,"  degrees  (FITTED)" 

4870  WRITE  (15,4860)"  N.DECL.  OFFSET : " , D[T6 ,5]/1000 ,Q+1 ,X[17]+D[T6, 5J/1000 

4890  F=FNNO 

4900  FOR  I=Q8  TO  Q9 

4920  Q=Q+1 

4940  IF  Q>2  AND  P=2  THEN  5130 

4960  IF  (U  <=  2)  AND  (J1-I1>0)  AND  (J2-I2>0)  THEN  5000 
4970  L=FNE(4970) 

4980  STOP 

5000  15=1  NT ( 12.1+(P[Q]  — II  )*( 34-12 )/(Jl- II ) ) 

5010  0$="o" 

5020  IF  U=1  THEN  5100 

5040  15=1  NT ( 23.1+P[Q]*( 34-12 )*J7/(J2- 12) ) 

5060  IF  I5<12  THEN  5090 
5070  IF  15  <=  34  THEN  5100 
5080  15=34 

5090  0$="$" 

5100  I6=INT( 48.1+(Z[Q]-I2 )*( 70-48)/( J2-I2 ) ) 

5110  PRINT  P[Q]  ;TAB(  15)  ;0$;TAB35;" :" ;Z[Q]  ;TAB(  16) ; "o" ;TAB71; 11 

5120  NEXT  I 

5130  WRITE  (15,4820) 

5150  IF  Q>2  AND  P=2  THEN  5190 
5170  NEXT  T6 

5180  FORMAT  "(MAX-MI N)  = " ,F10 .5 , " =(",F10.5,"  MINUS" ,F10 .5 , " ) " ,7X ,F7 .2 ,/ 

5190  WRITE  (15, 5180 )J1-I1,J1,I1, "RUN. SET :" ,A[1]/100 

5200  STANDARD 

5220  RETURN  Jl-Il 

5230  END 
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5250 

5270 

5280 

5300 

5310 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5410 

5430 

5440 

5460 

5480 

5500 

5520 

5525 

5540 

5550 

5560 

5570 

5580 

5590 

5600 


H - FIT  computer  listing  (con't) 


DEF  FNT(U) 

P6=4 

IF  T6#4  THEN  5310 
P6=3 

PRINT  "CUT"T6"  HAD  0NLY"D[T6,3]M  DATA  POINTS  (N4)" 

FOR  1=1  TO  68 
D[T6 , I ] = D[P6 , 1] 

NEXT  I 

D[T6,70]=D[P6,70] 

PRINT  "CUT"T6"  IS  ASSIGNED  THE  VALUES  OF  CUT"P6"  IN  FI LE"FO 

RETURN  0 

END 

DEF  FNX(U) 

IF  P=3  THEN  5590 

PRINT  "X(  )..  .PARAMETER VALUE Y ( J ) " 

PRINT 

FOR  J=1  TO  Q5 

IF  J <Q5  AND  P=2  THEN  5570 

IF  J#6  AND  J#ll  AND  J#12  AND  J#17  AND  J#18  THEN  5560 

IF  P=2  THEN  5560 

PRINT 

FORMAT  F3 .0 ,5X ,F16 .7  ,E17 .5 

WRITE  ( 15 ,5550) J , N$[7*J-6 ,7*J ],X[J],Y[J] 

NEXT  J 
PRINT 
RETURN  0 
END 
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H - FIT  computer  listing  (con't) 


5620 

5630 

5690 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5830 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

5970 

5980 

5990 

6010 

6030 

6040 

6050 

6070 

6090 

6110 

6130 

6150 

6160 

6180 

6200 

6220 

6230 

6240 

6250 

6260 

6270 


DEF  FNY(U) 

GOTO  U OF  5730,5780,6240,6250 
GOTO  5730 
DC  1 ,73]=100*Q4+Q5 
D[1 ,72]=I NT ( 100*P1) 

D[2 ,69]=E3 
D[3 ,69]=100*C1 
D[4 ,69]=FNL( C6 ) 

D[2 ,73]=FNL(X[18]*Y[18] ) 

D[3,73]=FNL(X[18]*Y[18] ) 

D[4 ,73]=FNL( X[18]*Y[18] ) 

D[5 ,73]=FML(X[11] ) 

D[6,73]=FNL(X[3] ) 

IF  U=1  THEN  5960 

D[2 ,72]=FNL( 100*SQR( U[ 18 ,18] )*Y[18] ) 

D[3 ,72]=FNL( 100*SQR( U[18,18])*Y[18]) 

D[4 ,72]=FNL( 100*SQR(U[ 18 , 18])*Y[18]) 

D[5,72]=FNL( 100*SQR(U[11 ,11]) ) 

D[6 ,72]=FNL( 100*SQR( U[3 ,3] ) ) 

D[1 ,71]=FNL( 100*Q2 ) 

D[2,71]=FNL( 100*SQR( Q1 ) ) 

D[3 ,71 ]=FNL( H1/Q2) 

D[4 ,71 ]=G1 

D[5 ,71]=FNL( H2/Q2 ) 

D[  6 , 71 ]=G2 
D[1 , 69] =P0 
RETURN  0 
REM  »FNY3ST0RE 
L4=l 

SERROR  L3 ,6150 

IF  (STATION)  OR  ( STATI0=5 ) THEN  6090 
DISP  "INSERT  UNPROTECTED  FILES,  CONT,  EXEC"; 

STOP 

GOTO  6010 

STORE  DATA  #10, FO 

F=FNY4 

GOTO  6230 

PRINT  " STORE-ERROR,  FILE:"FO 
L4=L4+1 

IF  L3 <56  THEN  6300 
IF  L4  <=  5 THEN  6010 

PRINT  "*****  did  NOT  store  results  on  file:"FO 
GOTO  8930 
RETURN  0 

PRINT  "SALIENT  RESULTS  HAVE  BEEN  WRITTEN  IN  D MATRIX  OF  FILE";FO 

RETURN  0 

END 
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H - FIT  computer  listing  (con't) 


REM  >>SERRORDEFAULT 
STANDARD 

IF  L3  <=  2 THEM  6360 
L=F  NE ( 6340 ) 

DISP  "CONT,  EXEC,  TO  ABORT  THIS  FILE"; 

STOP 

SERROR  L3 ,6300 

GOTO  9240 

REM  » CONTI NUEPGM 

F=FND1 

U1=0 

P=1 

DISP  "MAX  NUMBER  OF  PASSES"; 

INPUT  P9 

REM  »( NEXT)  BATCH 

F = F N I ( 1+U1 )+FMI ( 5+U1 )+FNI4+FNI8+FNI ( 9+U1 ) 

F=FNG( 5+U1 ) 

Ul  = l 
F=FNG2 

IF  NOT  FNG4  THEN  6500 
REM  >>( NEXT)SET 
SERROR  L3 ,6300 
IF  NOT  FNG4  THEN  6500 
STANDARD 

FORMAT  2/ ,9"STARTSET  " 

WRITE  (15,6680) 

F=FND2 
F=FNG3 
GOTO  2150 
REM  >>DOSET 
STANDARD 
DEG 

Cl=( N0=1 ) *58 - 69+ ( N0=2)*40.66+( N0=3)*22+( N0=4 )*(— 5.4) 

IF  N0<5  THEN  6860 

N5=-15 

N6=-10 

Cl=( N0=5)*N5+( N0=6)*N6 
IF  C1#0  THEN  6900 

DISP  "KEY  IN  SOURCE  N.DECL.  (degrees)"; 

INPUT  Cl 
Q5= 18 

P4=A[9]*lE-04 
19=  D[6 ,75] 

F=FNJ2 

IF  P9>0  THEN  7010 

PRINT  "PREPROCESSING  OF  FI LE"FO"  RUN.SET"A[1]/100"  IS  COMPLETE" 
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H - FIT  computer  listing  (con't) 


6990  GOTO  6620 

7010  IF  D[l,70]>5000  THEN  6620 
7030  E4=FN0(C1+D[4, 51/1000) 

7050  IF  P4#0  AND  I9#0  AND  E4>0  THEN  7080 
7060  L=FNE( 7060) 

7070  STOP 

7080  E3=999*( A[2]=7300)+999*(A[2]=7500)+999*(A[2]=7700) 

7110  E2=3600/I9 

7120  E1=SQR(4*L0G2) 

7130  PRINT  "FREQ:"A[2]"MHz  nominal  dTadd:"E3"ke1vin" 

7150  REDIM  P[5*C5] 

7160  Q=0 

7170  FOR  T6=2  TO  6 
7190  IF  D[T6 ,3]  >=  6 THEN  7230 
7210  F=FNTO 
7230  F=FNNO 
240  FOR  I=Q8  TO  Q9 
7250  Q=Q+1 

7270  P[Q]=FNP( 1+7 ) 

7280  NEXT  I 
7290  NEXT  T6 
7300  Q4=Q 

7310  PRINT  "ALPHA="Q4" ( the  number  of  data  points  fitted  in  the  set)" 
7320  IF  ( Q4-Q5>0)  THEN  7350 
7330  L=FNE( 7330) 

7340  STOP 

7350  REDIM  H[Q4] ,K[Q4 ,Q5] , L[Q5 ,Q4] ,P[Q4] ,R[1 ,Q4] ,Z[Q4] 

7410  T6=l 
7420  N4=D[T6 ,3] 

7430  C4=0 

7450  FOR  1 = 1 TO  N4 

7460  C4=C4+FNP( 1+7 ) 

7470  NEXT  I 

7490  C6=C4/(N4+(N4=0)*1) 

7500  X[1]=X[2]=X[3]=X[4]=X[5]=C6 

7510  Y[1]=Y[2]=Y[3]=Y[4]=Y[5]=E3 

7530  X[6]=X[7]=X[8]=X[9]=X[10]=0 
7540  Y[6]=Y[7]=Y[8]=Y[9]=Y[10]=E2*E3 

7570  F=FNS3 
7580  X[11]=P[J4]-C6 

7590  PRINT  "X(  11  ) = "X[11],,J4="J4" , P(J4)  = "P[J4]\  C6="C6 
7600  Y[ 11 ]=E3 

7620  X[12]=X[13]=X[14]=X[15]=X[16]=0 

7630  Y[12]=Y[13]=Y[14]=Y[15]=Y[16]=E4 

7660  X[17]=-D[FNS4, 51/1000 

7670  Y[ 1 7 ] =1 

7700  X[ 18]  = C2 

7710  Y[18]=l 

7760  P0=0 

7780  F=FNY1 
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7800 

7820 

7830 

7840 

7860 

7870 

7890 

7900 

7910 

7920 

7930 

7970 

7980 

8000 

8010 

8020 

8030 

8040 

8060 

8070 

8090 

8100 

8110 

8120 

8130 

8150 

8160 

8170 

8180 

8200 

8220 

8240 

8250 

8260 

8270 

8280 

8290 

8310 

8320 


H - FIT  computer  listing  (con't) 


REM  »IMPROVEPARAMETERS 
FORMAT  80"-" 

WRITE  (15,7820) 

P0=P0+1 
MAT  0=X 
F=FNH1 
L2=0 
Q=0 

REDIM  K[Q4 ,Q5] 

MAT  K=ZER 

IF  P0#1  AND  P0#6  THEN  8000 

F=FNB1 

PRINT 

FOR  T6=2  TO  6 
C7=D[T6, 7]/100 
A7=D[T6, 51/1000 
C9=C7+X[T6+10] 

A8=A7+X[17] 

E4=FN0( C1+A7 ) 

A9= ( A8*E1/X[18] ) "2 
F=FNNO 

FOR  I=Q8  TO  Q9 

Q=Q+1 

C=I-C9 

A2=( C*E1*E4/X[18] ) "2+A9 
IF  ABS(A2-49)<51  THEN  8180 
L=FNE(8160) 

STOP 

E9=EXP( -A2 ) 

E7=X[ 11]*E9 

Z[Q]=X[T6-l]+C*X[T6+4]+E7 

K[Q,T6-1]=1 

K[Q  ,T6+4]  = C 

K[Q,11]=E9 

K[Q  ,T6+10]=-X[T6+4]+2*E7*C*( E1*E4/X[18] ) "2 
K[Q , 17]=-2*E7*A8*( El/X[18])"2 
K[Q  ,18]=+2*E7*E1 '2*(  ( E4*C)  ''2+A8"2)/X[18]  "3 
NEXT  I 
NEXT  T6 
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8350 

8360 

8380 

8390 

8400 

8420 

8440 

8450 

8460 

8480 

85C0 

8510 

8520 

8530 

8540 

8550 

8560 

8570 

8580 

8590 

8610 

8620 

8630 

8650 

8670 

8690 

8700 

8710 

8720 

8750 

8760 

8770 

8790 

8800 

8810 

8830 

8860 

8870 

8880 

8900 

8920 

8930 

8950 

8970 

8980 

9000 

9020 


H - FIT  computer  listing  (con't) 


E4=FN0(C1+D[4, 53/1000) 

IF  P0#1  THEN  8440 

PRINT  "N4  VALUES : " D[2 ,3] ; D[3 ,3] ; D[4 ,3] ; D[5 ,3] ; D[6 ,3] ; " SYSTEMCUT  N4:"D[1,3] 
WRITE  ( 15,8400) "INITIAL  CALCULATIONS,  Z(calc):" 

FORMAT  "OBSERVATIONS,  P(obs),  SELF-SCALED:" ,3X 

F-FNS1 

MAT  H=P-Z 

MAT  R=TRN(H) 

MAT  W=R*H 

Q2=SQR( ABS( W[1 ,l]/( Q4-Q5 ) ) ) 

IF  Q2>0  THEN  8530 
L-FNE(8510) 

STOP 

MAT  L=TRN(K) 

MAT  U=L*K 
MAT  U=INV(U) 

REDIM  K[Q5 ,Q4] 

MAT  K=U*L 
MAT  E=K*H 
MAT  X=X+E 

IF  X[18]>0  THEN  8650 
L=FNE(8620) 

STOP 

MAT  U=(Q2"2)*U 
Q1=0 

FOR  J=1  TO  Q5 

Ql=Ql+E[J]A2/( U[J ,J]+( U[J ,J ]=0)*1E-07*E[J] "2) 

NEXT  J 
Q1=Q1/Q5 

IF  P0#1  AND  P0#6  THEN  8770 

F=FNH1 

F=FNH2 

F=FMY2 

IF  L2=0  THEN  8830 

PRINT  "D  MATRIX  EXCEEDS  RANGE" L2 "TIMES  THIS  PASS" 

IF  (Q1>0. 000004)  AND  P0<P9  AND  PO  <=  12  THEN  7800 

REM  »PRINTRESULTS 

FORMAT  80"-" ,/,10"RESULTS  ",/ 

WRITE  (15,8870) 

F=FNY3 

GOTO  5980 

REM  »POSTSTORE 

F=FNI4+FNI8 

F=FNB2+FNJ1 

PRINT 

MAT  P=H 

J7=3 
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9030 

9050 

9070 

9090 

9100 

9120 

9140 

9180 

9190 

9200 

9210 

9230 

9240 

9260 

9280 

9290 


H - FIT  computer  listing  (con't) 


FORMAT  "RESIDUALS, H=P(obs)-Z,MAGNIFIEDx3 :" ,3X 

WRITE  (15,9030 ) "FI NAL  CALCULATIONS,  Z(calc):" 

F=FNS2 

F=FNH2 

PRINT 

F=FNXO 

F=FNRO 

F=FNI4+FNI8+FNB2+FNY4+FND2+FNJ1 
FORMAT  /,ll"endset  ",3/ 

WRITE  (15,9190) 

REM  »ENDOFSET 
GOTO  6620 

REM  »ABORTTHISFILE 

F8=F0+1 

GOTO  9210 

END 
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8.25  CROSS  REFERENCE  for  H - FIT 


SYMBOL 


REFERENCE  LINE 


1080 

1650 

1420 

1560 

1670 

1580 

1680 

1540 

1620 

1660 

1700 

1470 

1800 

1770 

2080 

2110 

2150 

6750 

2200 

2260 

2360 

2280 

2220 

2410 

2290 

2540 

2490 

2630 

2620 

2790 

2710 

2830 

2770 

2790 

3060 

3140 

3150 

3090 

3160 

3110 

3220 

3300 

3310 

3250 

3320 

3270 

3380 

3500 

3450 

3470 

3470 

3420 

3620 

3570 

3720 

3690 

3790 

3760 

4160 

4120 

4125 

4170 

4070 

4190 

4000 

4470 

4430 

4500 

4470 

4600 

4500 

4530 

4680 

4630 

4780 

4740 
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SYMBOL 


REFERENCE  LINE 


4810 

4780 

5000 

4960 

5090 

5060 

5100 

5020 

5070 

5130 

4940 

5190 

4680 

5150 

5310 

5280 

5560 

5520 

5525 

5570 

5500 

5590 

5430 

5730 

5690 

5960 

5830 

5980 

8920 

6010 

6070 

6200 

6090 

6030 

6230 

6130 

6300 

2340 

6180 

6360 

6330 

6410 

1050 

6500 

6610 

6660 

6620 

2390 

6990 

7010 

9230 

6760 

2460 

6860 

6810 

6900 

6860 

7010 

6960 

7080 

7050 

7230 

7190 

7350 

7320 

7800 

8830 

8000 

7930 

8180 

8150 

8440 

8360 

8530 

8500 

8650 

8610 

8770 

8750 

8830 

8800 
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SYMBOL 
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8930 

9210 

9240 

6230 

9280 

1930 

6400 

A2 

1100 

1240 

1890 

8130 

8150 

8180 

A7 

1100 

8020 

8040 

8060 

A8 

1100 

8040 

8070 

8280 

8290 

A9 

1100 

8070 

8130 

AI[ 

10 

A[ 

2660 

3560 

5190 

6910 

6970 

7080 

7130 

C 

1100 

8120 

8130 

8220 

8250 

8270 

8290 

CO 

1100 

4090 

4160 

Cl 

1100 

5760 

6800 

6850 

6860 

6880 

7030 

8060 

8350 

C2 

1100 

3440 

7700 

C4 

1100 

7430 

7460 

7490 

C5 

1100 

1320 

3850 

3860 

7150 

C6 

1100 

5770 

7490 

7500 

7580 

7590 

C7 

1100 

8010 

8030 

C8 

1100 

4100 

4160 

C9 

1100 

8030 

8120 

COM 

10 

D$ 

1780 

D$[ 

10 

DEG 

6780 

DISP 

1900 

2080 

2240 

2550 

3060 

3130 

3220 

3290 

3380 

3490 

6040 

6350 

6460 

6480 

6870 

DI[  10 
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SYMBOL 
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D[ 

3610 

3840 

3950 

4870 

5310 

5340 

5360 

5730 

5740 

5750 

5760 

5770 

5780 

5790 

5800 

5810 

5820 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5930 

5940 

5950 

5960 

6920 

7010 

7030 

7190 

7420 

7660 

8010 

8020 

8350 

8380 

E 

1250 

1340 

3670 

3790 

3950 

4160 

6910 

8580 

8590 

8700 

E$ 

1780 

E$[ 

10 

El 

1110 

7120 

8070 

8130 

8270 

8280 

8290 

E2 

1110 

7110 

7540 

E3 

1110 

1610 

5750 

7080 

7130 

7510 

7540 

7600 

E4 

1110 

1240 

1890 

7030 

7050 

7630 

8060 

8130 

8270 

8290 

8350 

E7 

1110 

8200 

8220 

8270 

8280 

8290 

E9 

1110 

8180 

8200 

8260 

ES[ 

1080 

E[ 

4160 

8700 

F 

1110 

3590 

4390 

4890 

6110 

6430 

6520 

6550 

6590 

6710 

6730 

6940 

7210 

7230 

7570 

7780 

7870 

7950 

7970 

8090 

8420 

8760 

8770 

8790 

8900 

8950 

8970 

9070 

9090 

9120 

9140 

9160 

9180 

FO 

1110 

1880 

2130 

2170 

2310 

2630 

3560 

5370 

6150 

6220 

6250 

6970 

9260 

FI 

1110 

2090 

2110 

2130 

2510 
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F3 

1350 

5550 

1600 

1640 

4150 

4860 

F4 

2860 

3550 

3600 

F6 

2860 

3600 

F7 

2650 

3550 

4860 

5180 

F8 

1110 

1880 

2130 

2170 

2380 

2410 

2490 

2540 

9260 

F9 

1110 

1600 

1640 

2090 

2110 

2490 

2510 

2540 

4150 

FNA( 

1450 

FNAO 

9160 

FNB( 

1730 

FNB1 

7970 

FNB2 

3590 

8970 

9180 

FND( 

1400 

FND1 

6430 

FND2 

6710 

9180 

FNE( 

1830 

2060 

3040 

4970 

6340 

7060 

7330 

8160 

8510 

8620 

FNG  ( 

1970 

6550 

FMG2 

6590 

FNG3 

6730 

FNG4 

6610 

6660 

FNH( 

2600 

FNH1 

7870 

8760 

FNH2 

8770 

9090 

FNI  ( 

2910 

6520 

FNI4 

3590 

6520 

8950 

9180 

FNI8 

3590 

6520 

8950 

9180 

FNJ  ( 

3530 

FNJ1 

8970 

9180 

FNJ2 

6940 

FNL( 

3650 

5770 

5780 

5790 

5800 

5810 

5820 

5850 

5860 

5870 

5880 

5890 

5900 

5910 

5920 

5940 
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FNM( 

FNN( 

3750 

3820 

FNNO 

4390 

4890 

7230 

8090 

F NO  ( 

3910 

7030 

8060 

8350 

FNP( 

3950 

7270 

7460 

FNR( 

3980 

FNRO 

9140 

FNS( 

4220 

FNS1 

8420 

FNS2 

9070 

FNS3 

7570 

FNS4 

7660 

FNT( 

5250 

FNTO 

7210 

FNX{ 

5410 

FNXO 

7950 

9120 

FNY( 

5620 

FNY1 

7780 

FNY2 

8790 

FNY3 

8900 

FNY4 

6110 

9180 

FORMAT 

1250 

1260 

1270 

1280 

1290 

1300 

1350 

1490 

1600 

1640 

2650 

2840 

2860 

3550 

3600 

4010 

4150 

4820 

4860 

5180 

5550 

6680 

7820 

7860 

7920 

8400 

8440 

8450 

8460 

8530 

8540 

8550 

8570 

8580 

8590 

8650 

8870 

9000 

9030 

9190 

G$ 

3230 

3310 

G$[ 

1140 

3250 

G1 

1110 

2670 

2740 

2760 

2870 

5930 

G2 

1110 

2670 

2740 

2820 

2870 

5950 

H 

1110 

1260 

1550 

1610 

1650 

4080 

4160 

4510 

4530 

4550 

8440 

8450 

8460 

8580 

9000 
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SYMBOL 
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H$ 

H$[ 

HI 

1790 

10 

1110 

2870 

2670 

5920 

2710 

2730 

2750 

H2 

1110 

2670 

2730 

2790 

2810 

2870 

5940 

H3 

1110 

2690 

2710 

2750 

2790 

2810 

H4 

1110 

3400 

3420 

3440 

HS[ 

1080 

HE 

2690 

7350 

I 

1120 

4400 

4500 

4600 

4900 

5120 

5330 

5340 

5350 

7240 

7270 

7280 

7450 

7460 

7470 

8100 

8120 

8310 

1$ 

3310 

3340 

3360 

I$[ 

1140 

11 

1120 

4320 

4430 

4450 

4960 

5000 

5190 

5220 

12 

1120 

4710 

4740 

4760 

4960 

5040 

5100 

15 

1120 

5000 

5040 

5060 

5070 

5080 

5110 

16 

1120 

5100 

5110 

19 

1120 

1240 

1610 

1650 

1870 

3910 

6920 

7050 

7110 

I NV  ( 

8550 

J 

1120 

1520 

1540 

1550 

1560 

1580 

1610 

1650 

1680 

4050 

4070 

4080 

4090 

4100 

4120 

4160 

4170 

5480 

5500 

5520 

5560 

5570 

8690 

8700 

8710 

J1 

1120 

4320 

4470 

4490 

4960 

5000 

5190 

5220 

J2 

1120 

4710 

4780 

4800 

4960 

5040 

5100 

J3 

1120 

4330 

4530 

4550 

J4 

1120 

4340 

4570 

7580 

7590 

J6 

1120 

4360 

4590 

4660 
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J7 

K 

KS[ 

1120 

1270 

8580 

1080 

5040 

7920 

9020 

8530 

8540 

8570 

l l 

7350 

‘ 7910 

8240 

8250 

8260 

8270 

8280 

290  8560 

L 

1120 

1840 

1860 

1900 

1940 

2060 

3040 

4970 

6340 

7060 

7330 

8160 

8510 

8530 

8540 

8570 

8620 

L$ 

3070 

3150 

L$[ 

1140 

3090 

LI 

1120 

3670 

3690 

3710 

3720 

L2 

1120 

3700 

3770 

7890 

8800 

8810 

L3 

1120 

1240 

1880 

2200 

2340 

2430 

6010 

6180 

6330 

6380 

6640 

L4 

1120 

2180 

2320 

2360 

5990 

6160 

6200 

LGT( 

3670 

LS[ 

1080 

L[ 

7350 

M$ 

3150 

3180 

3200 

M$[ 

1140 

N$[ 

1140 

1150 

1170 

1190 

1210 

1610 

1650 

4160 

5560 

NO 

0 

1780 

3910 

6800 

6810 

6850 

N4 

1120 

3840 

3850 

3860 

7420 

7450 

7490 

N5 

1120 

6830 

6850 

N6 

1120 

6840 

6850 

0 

7860 

0$ 

5010 

5090 

5110 

0$[ 

1140 

OF 

1410 

1750 

1980 

2610 

2920 

3540 

4230 

5630 

o 
1 — 1 

1080 

2630 
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p 

p$ 

p$[ 

1130 

4125 

5500 

1760 

0 

1470 

4680 

5525 

1540 

4940 

6470 

4000 

5150 

8440 

4070 

5430 

9000 

PO 

1130 

2630 

5960 

7760 

7840 

7930 

8360 

8750 

8830 

PI 

1130 

1340 

5740 

P4 

1130 

1240 

1870 

3950 

6910 

7050 

P6 

1130 

5270 

5300 

5340 

5360 

5370 

P9 

1130 

6490 

6960 

8830 

PS[ 

1080 

PC 

4320 

4330 

4430 

4450 

4470 

4490 

4510 

5000 

5040 

5110 

7150 

7270 

7350 

7580 

7590 

Q 

1130 

1240 

1870 

2680 

2690 

2760 

2820 

2830 

4300 

4410 

4430 

4450 

4470 

4490 

4510 

4570 

4590 

4720 

4740 

4760 

4780 

4800 

4810 

4840 

4870 

4920 

4940 

5000 

5040 

5100 

5110 

5150 

7160 

7250 

7270 

7300 

7900 

8110 

8220 

8240 

8250 

8260 

8270 

8280 

8290 

Q1 

1130 

2660 

5910 

8670 

8700 

8720 

8830 

Q2 

1130 

1240 

1890 

2660 

2870 

5900 

5920 

5940 

8480 

8500 

8650 

Q4 

1130 

1240 

1870 

2680 

4590 

4720 

5730 

7300 

7310 

7320 

7350 

7910 

8480 

8560 

Q5 

1130 

1240 

1870 

4050 

5480 

5500 

5730 

6900 

7320 

7350 

7910 

8480 

8560 

8690 

8720 

08 

1130 

3850 

4400 

4500 

4900 

7240 

8100 

09 

1130 
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